BBS in a Box 2

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Co-Cz / Cryptogram VIa < prev
MacBinary | 1993-05-24 | 76.8 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Cryptogram VIa
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Jun 25 13:04:16 1988, modified Mon May 24 13:45:24 1993, creator HyperCard, type HyperCard stack, 70240 bytes "Cryptogram VIa" , at 0x112e0 8078 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 43 72 79 70 74 6f | 67 72 61 6d 20 56 49 61 |..Crypto|gram VIa|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 01 12 60 00 | 00 1f 8e 9e e9 8d 90 a8 |......`.|........|
|00000060| 26 ba 34 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |&.4.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 20 95 00 00 |........|.... ...|
|00000080| 00 00 3e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..>.STAK|........|
|00000090| 00 00 00 0a 00 01 12 60 | 00 00 3e 00 00 00 00 00 |.......`|..>.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0c ba 00 00 00 01 |........|........|
|000000b0| 00 00 0e 6b 00 00 09 0e | 00 00 00 00 00 00 00 00 |...k....|........|
|000000c0| 00 00 0f 39 00 00 00 00 | 00 05 00 00 10 00 00 00 |...9....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |........|........|
|000000f0| 80 01 fd eb 00 00 00 00 | 00 45 00 40 01 9b 02 40 |........|.E.@...@|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 61 00 00 0a 51 | 01 56 02 00 00 00 00 00 |...a...Q|.V......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | a1 30 03 1a 48 c0 0c 09 |...hC.0&|.0..H...|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 58 46 43 4e 20 | 45 64 69 74 53 74 72 69 |-- XFCN |EditStri|
|00000690| 6e 67 20 76 31 2e 33 20 | 62 79 20 4d 20 53 20 57 |ng v1.3 |by M S W|
|000006a0| 61 6c 6c 20 6f 66 20 47 | 72 65 65 6e 20 4d 6f 75 |all of G|reen Mou|
|000006b0| 74 61 69 6e 20 53 6f 66 | 74 77 61 72 65 0d 0d 6f |tain Sof|tware..o|
|000006c0| 6e 20 6f 70 65 6e 53 74 | 61 63 6b 20 2d 2d 53 74 |n openSt|ack --St|
|000006d0| 61 63 6b 20 6c 61 73 74 | 20 6d 6f 64 69 66 69 65 |ack last| modifie|
|000006e0| 64 3a 20 34 2f 38 2f 39 | 33 0d 68 79 70 65 72 63 |d: 4/8/9|3.hyperc|
|000006f0| 61 72 64 56 65 72 73 69 | 6f 6e 0d 6c 6f 63 6b 20 |ardVersi|on.lock |
|00000700| 73 63 72 65 65 6e 0d 73 | 68 6f 77 20 6d 65 6e 75 |screen.s|how menu|
|00000710| 42 61 72 0d 64 6f 6d 65 | 6e 75 20 22 48 69 64 65 |Bar.dome|nu "Hide|
|00000720| 20 4f 74 68 65 72 73 22 | 0d 68 69 64 65 20 74 69 | Others"|.hide ti|
|00000730| 74 6c 65 42 61 72 0d 67 | 6c 6f 62 61 6c 20 6e 65 |tleBar.g|lobal ne|
|00000740| 78 74 5f 66 69 65 6c 64 | 5f 6e 61 6d 65 0d 70 75 |xt_field|_name.pu|
|00000750| 74 20 22 6c 65 74 74 65 | 72 31 22 20 69 6e 74 6f |t "lette|r1" into|
|00000760| 20 6e 65 78 74 5f 66 69 | 65 6c 64 5f 6e 61 6d 65 | next_fi|eld_name|
|00000770| 0d 69 66 20 66 69 65 6c | 64 20 6d 79 50 75 7a 7a |.if fiel|d myPuzz|
|00000780| 6c 65 20 ad 20 65 6d 70 | 74 79 20 61 6e 64 20 66 |le . emp|ty and f|
|00000790| 69 65 6c 64 20 63 72 79 | 70 74 6f 50 75 7a 7a 6c |ield cry|ptoPuzzl|
|000007a0| 65 20 ad 20 65 6d 70 74 | 79 20 74 68 65 6e 0d 67 |e . empt|y then.g|
|000007b0| 6c 6f 62 61 6c 20 6b 65 | 79 4d 65 6d 6f 72 79 2c |lobal ke|yMemory,|
|000007c0| 74 68 65 50 75 7a 7a 6c | 65 53 6f 6c 76 65 64 2c |thePuzzl|eSolved,|
|000007d0| 6d 79 50 75 7a 7a 6c 65 | 4d 65 6d 6f 72 79 2c c2 |myPuzzle|Memory,.|
|000007e0| 0d 63 72 79 70 74 6f 50 | 75 7a 7a 6c 65 4d 65 6d |.cryptoP|uzzleMem|
|000007f0| 6f 72 79 2c 70 75 7a 7a | 6c 65 4d 65 6d 6f 72 79 |ory,puzz|leMemory|
|00000800| 0d 70 75 74 20 66 69 65 | 6c 64 20 22 6b 65 79 22 |.put fie|ld "key"|
|00000810| 20 69 6e 74 6f 20 6b 65 | 79 4d 65 6d 6f 72 79 0d | into ke|yMemory.|
|00000820| 70 75 74 20 6c 69 6e 65 | 20 33 20 74 6f 20 28 74 |put line| 3 to (t|
|00000830| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00000840| 65 73 20 6f 66 20 66 69 | 65 6c 64 20 72 65 63 6f |es of fi|eld reco|
|00000850| 72 64 29 20 6f 66 20 66 | 69 65 6c 64 20 72 65 63 |rd) of f|ield rec|
|00000860| 6f 72 64 c2 0d 69 6e 74 | 6f 20 74 68 65 50 75 7a |ord..int|o thePuz|
|00000870| 7a 6c 65 53 6f 6c 76 65 | 64 0d 70 75 74 20 66 69 |zleSolve|d.put fi|
|00000880| 65 6c 64 20 6d 79 50 75 | 7a 7a 6c 65 20 69 6e 74 |eld myPu|zzle int|
|00000890| 6f 20 6d 79 50 75 7a 7a | 6c 65 4d 65 6d 6f 72 79 |o myPuzz|leMemory|
|000008a0| 0d 70 75 74 20 66 69 65 | 6c 64 20 63 72 79 70 74 |.put fie|ld crypt|
|000008b0| 6f 50 75 7a 7a 6c 65 20 | 69 6e 74 6f 20 63 72 79 |oPuzzle |into cry|
|000008c0| 70 74 6f 50 75 7a 7a 6c | 65 4d 65 6d 6f 72 79 0d |ptoPuzzl|eMemory.|
|000008d0| 70 75 74 20 66 69 65 6c | 64 20 70 75 7a 7a 6c 65 |put fiel|d puzzle|
|000008e0| 20 69 6e 74 6f 20 70 75 | 7a 7a 6c 65 4d 65 6d 6f | into pu|zzleMemo|
|000008f0| 72 79 0d 65 6c 73 65 0d | 67 6c 6f 62 61 6c 20 6d |ry.else.|global m|
|00000900| 79 50 75 7a 7a 6c 65 4d | 65 6d 6f 72 79 2c 63 72 |yPuzzleM|emory,cr|
|00000910| 79 70 74 6f 50 75 7a 7a | 6c 65 4d 65 6d 6f 72 79 |yptoPuzz|leMemory|
|00000920| 2c 70 75 7a 7a 6c 65 4d | 65 6d 6f 72 79 0d 70 75 |,puzzleM|emory.pu|
|00000930| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 6d 79 50 |t empty |into myP|
|00000940| 75 7a 7a 6c 65 4d 45 4d | 4f 52 59 0d 70 75 74 20 |uzzleMEM|ORY.put |
|00000950| 65 6d 70 74 79 20 69 6e | 74 6f 20 63 72 79 70 74 |empty in|to crypt|
|00000960| 6f 50 75 7a 7a 6c 65 4d | 45 4d 4f 52 59 0d 70 75 |oPuzzleM|EMORY.pu|
|00000970| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 70 75 7a |t empty |into puz|
|00000980| 7a 6c 65 4d 45 4d 4f 52 | 59 0d 65 6e 64 20 69 66 |zleMEMOR|Y.end if|
|00000990| 0d 2d 2d 20 70 75 74 20 | 22 54 6f 6f 6c 73 2c 46 |.-- put |"Tools,F|
|000009a0| 6f 6e 74 2c 53 74 79 6c | 65 22 20 69 6e 74 6f 20 |ont,Styl|e" into |
|000009b0| 6d 65 6e 75 4c 69 73 74 | 0d 2d 2d 20 72 65 70 65 |menuList|.-- repe|
|000009c0| 61 74 20 77 69 74 68 20 | 6d 20 3d 20 31 20 74 6f |at with |m = 1 to|
|000009d0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 69 | the num|ber of i|
|000009e0| 74 65 6d 73 20 6f 66 20 | 6d 65 6e 75 4c 69 73 74 |tems of |menuList|
|000009f0| 0d 2d 2d 20 69 66 20 74 | 68 65 72 65 20 69 73 20 |.-- if t|here is |
|00000a00| 61 20 6d 65 6e 75 20 28 | 69 74 65 6d 20 6d 20 6f |a menu (|item m o|
|00000a10| 66 20 6d 65 6e 75 4c 69 | 73 74 29 20 74 68 65 6e |f menuLi|st) then|
|00000a20| 20 64 65 6c 65 74 65 20 | 6d 65 6e 75 20 28 69 74 | delete |menu (it|
|00000a30| 65 6d 20 6d 20 6f 66 20 | 6d 65 6e 75 4c 69 73 74 |em m of |menuList|
|00000a40| 29 0d 2d 2d 20 65 6e 64 | 20 72 65 70 65 61 74 0d |).-- end| repeat.|
|00000a50| 69 66 20 74 68 65 72 65 | 20 69 73 20 61 20 6d 65 |if there| is a me|
|00000a60| 6e 75 20 22 43 72 79 70 | 74 6f 67 72 61 6d 22 20 |nu "Cryp|togram" |
|00000a70| 74 68 65 6e 20 65 6e 61 | 62 6c 65 20 6d 65 6e 75 |then ena|ble menu|
|00000a80| 20 22 43 72 79 70 74 6f | 67 72 61 6d 22 20 65 6c | "Crypto|gram" el|
|00000a90| 73 65 20 63 72 65 61 74 | 65 43 72 79 70 74 6f 67 |se creat|eCryptog|
|00000aa0| 72 61 6d 4d 65 6e 75 0d | 69 66 20 63 68 61 72 54 |ramMenu.|if charT|
|00000ab0| 6f 4e 75 6d 20 6f 66 20 | 63 68 61 72 20 32 20 6f |oNum of |char 2 o|
|00000ac0| 66 20 66 69 65 6c 64 20 | 70 72 65 73 73 41 6c 70 |f field |pressAlp|
|00000ad0| 68 61 62 65 74 20 3d 20 | 36 35 20 74 68 65 6e 20 |habet = |65 then |
|00000ae0| 2d 2d 20 46 49 4e 44 20 | 4f 55 54 20 49 46 20 50 |-- FIND |OUT IF P|
|00000af0| 55 5a 5a 4c 45 20 49 53 | 20 41 4c 4c 20 43 41 50 |UZZLE IS| ALL CAP|
|00000b00| 53 0d 73 65 74 20 63 68 | 65 63 6b 4d 61 72 6b 20 |S.set ch|eckMark |
|00000b10| 6f 66 20 6d 65 6e 75 69 | 74 65 6d 20 22 44 69 66 |of menui|tem "Dif|
|00000b20| 66 69 63 75 6c 74 20 50 | 75 7a 7a 6c 65 22 20 6f |ficult P|uzzle" o|
|00000b30| 66 20 6d 65 6e 75 20 22 | 43 72 79 70 74 6f 67 72 |f menu "|Cryptogr|
|00000b40| 61 6d 22 20 74 6f 20 74 | 72 75 65 0d 65 6e 64 20 |am" to t|rue.end |
|00000b50| 69 66 0d 64 69 73 61 62 | 6c 65 20 6d 65 6e 75 69 |if.disab|le menui|
|00000b60| 74 65 6d 20 22 44 69 66 | 66 69 63 75 6c 74 20 50 |tem "Dif|ficult P|
|00000b70| 75 7a 7a 6c 65 22 20 6f | 66 20 6d 65 6e 75 20 22 |uzzle" o|f menu "|
|00000b80| 43 72 79 70 74 6f 67 72 | 61 6d 22 0d 0d 67 6c 6f |Cryptogr|am"..glo|
|00000b90| 62 61 6c 20 61 6c 70 68 | 61 62 65 74 4d 65 6d 6f |bal alph|abetMemo|
|00000ba0| 72 79 0d 69 66 20 61 6c | 70 68 61 62 65 74 4d 65 |ry.if al|phabetMe|
|00000bb0| 6d 6f 72 79 20 3d 20 65 | 6d 70 74 79 20 74 68 65 |mory = e|mpty the|
|00000bc0| 6e 0d 70 75 74 20 22 61 | 20 62 20 63 20 64 20 65 |n.put "a| b c d e|
|00000bd0| 20 66 20 67 20 68 20 69 | 20 6a 20 6b 20 6c 20 6d | f g h i| j k l m|
|00000be0| 20 6e 20 6f 20 70 20 71 | 20 72 20 73 20 74 20 75 | n o p q| r s t u|
|00000bf0| 20 76 20 77 20 78 20 79 | 20 7a 22 20 c2 0d 69 6e | v w x y| z" ..in|
|00000c00| 74 6f 20 61 6c 70 68 61 | 62 65 74 4d 65 6d 6f 72 |to alpha|betMemor|
|00000c10| 79 0d 65 6e 64 20 69 66 | 0d 69 66 20 74 68 65 20 |y.end if|.if the |
|00000c20| 63 68 65 63 6b 4d 61 72 | 6b 20 6f 66 20 6d 65 6e |checkMar|k of men|
|00000c30| 75 49 74 65 6d 20 22 44 | 69 66 66 69 63 75 6c 74 |uItem "D|ifficult|
|00000c40| 20 50 75 7a 7a 6c 65 22 | 20 6f 66 20 6d 65 6e 75 | Puzzle"| of menu|
|00000c50| 20 22 43 72 79 70 74 6f | 67 72 61 6d 22 20 c2 0d | "Crypto|gram" ..|
|00000c60| 3d 20 74 72 75 65 20 74 | 68 65 6e 0d 70 75 74 20 |= true t|hen.put |
|00000c70| 65 64 69 74 53 74 72 69 | 6e 67 28 22 75 63 61 73 |editStri|ng("ucas|
|00000c80| 65 22 2c 61 6c 70 68 61 | 62 65 74 4d 65 6d 6f 72 |e",alpha|betMemor|
|00000c90| 79 29 20 69 6e 74 6f 20 | 61 6c 70 68 61 62 65 74 |y) into |alphabet|
|00000ca0| 4d 65 6d 6f 72 79 0d 65 | 6e 64 20 69 66 0d 0d 69 |Memory.e|nd if..i|
|00000cb0| 66 20 74 68 65 20 75 73 | 65 72 4c 65 76 65 6c 20 |f the us|erLevel |
|00000cc0| 3d 20 31 20 74 68 65 6e | 0d 67 6c 6f 62 61 6c 20 |= 1 then|.global |
|00000cd0| 6f 72 69 67 69 6e 61 6c | 55 73 65 72 4c 65 76 65 |original|UserLeve|
|00000ce0| 6c 54 65 6d 70 0d 70 75 | 74 20 74 68 65 20 75 73 |lTemp.pu|t the us|
|00000cf0| 65 72 4c 65 76 65 6c 20 | 69 6e 74 6f 20 6f 72 69 |erLevel |into ori|
|00000d00| 67 69 6e 61 6c 55 73 65 | 72 4c 65 76 65 6c 54 65 |ginalUse|rLevelTe|
|00000d10| 6d 70 0d 73 65 74 20 75 | 73 65 72 4c 65 76 65 6c |mp.set u|serLevel|
|00000d20| 20 74 6f 20 32 0d 70 75 | 74 20 65 6d 70 74 79 0d | to 2.pu|t empty.|
|00000d30| 74 79 70 65 20 22 54 68 | 65 20 75 73 65 72 20 6c |type "Th|e user l|
|00000d40| 65 76 65 6c 20 68 61 73 | 20 74 65 6d 70 6f 72 61 |evel has| tempora|
|00000d50| 72 69 6c 79 20 62 65 65 | 6e 20 73 65 74 20 74 6f |rily bee|n set to|
|00000d60| 20 32 2e 22 0d 65 6e 64 | 20 69 66 0d 75 6e 6c 6f | 2.".end| if.unlo|
|00000d70| 63 6b 20 73 63 72 65 65 | 6e 0d 65 6e 64 20 6f 70 |ck scree|n.end op|
|00000d80| 65 6e 53 74 61 63 6b 0d | 0d 6f 6e 20 73 75 73 70 |enStack.|.on susp|
|00000d90| 65 6e 64 53 74 61 63 6b | 20 2d 2d 20 34 2f 38 2f |endStack| -- 4/8/|
|00000da0| 39 33 0d 69 66 20 74 68 | 65 72 65 20 69 73 20 61 |93.if th|ere is a|
|00000db0| 20 6d 65 6e 75 20 22 43 | 72 79 70 74 6f 67 72 61 | menu "C|ryptogra|
|00000dc0| 6d 22 20 74 68 65 6e 20 | 64 69 73 61 62 6c 65 20 |m" then |disable |
|00000dd0| 6d 65 6e 75 20 22 43 72 | 79 70 74 6f 67 72 61 6d |menu "Cr|yptogram|
|00000de0| 22 0d 65 6e 64 20 73 75 | 73 70 65 6e 64 53 74 61 |".end su|spendSta|
|00000df0| 63 6b 0d 6f 6e 20 72 65 | 73 75 6d 65 53 74 61 63 |ck.on re|sumeStac|
|00000e00| 6b 0d 69 66 20 74 68 65 | 72 65 20 69 73 20 6e 6f |k.if the|re is no|
|00000e10| 20 6d 65 6e 75 20 22 43 | 72 79 70 74 6f 67 72 61 | menu "C|ryptogra|
|00000e20| 6d 22 20 74 68 65 6e 0d | 63 72 65 61 74 65 43 72 |m" then.|createCr|
|00000e30| 79 70 74 6f 67 72 61 6d | 4d 65 6e 75 0d 65 6c 73 |yptogram|Menu.els|
|00000e40| 65 0d 65 6e 61 62 6c 65 | 20 6d 65 6e 75 20 22 43 |e.enable| menu "C|
|00000e50| 72 79 70 74 6f 67 72 61 | 6d 22 0d 65 6e 64 20 69 |ryptogra|m".end i|
|00000e60| 66 0d 65 6e 64 20 72 65 | 73 75 6d 65 53 74 61 63 |f.end re|sumeStac|
|00000e70| 6b 0d 0d 6f 6e 20 63 6c | 6f 73 65 53 74 61 63 6b |k..on cl|oseStack|
|00000e80| 20 2d 2d 20 37 2f 38 2f | 39 32 0d 70 75 74 20 65 | -- 7/8/|92.put e|
|00000e90| 6d 70 74 79 20 69 6e 74 | 6f 20 66 69 65 6c 64 20 |mpty int|o field |
|00000ea0| 22 6c 65 74 74 65 72 31 | 22 0d 70 75 74 20 65 6d |"letter1|".put em|
|00000eb0| 70 74 79 20 69 6e 74 6f | 20 66 69 65 6c 64 20 22 |pty into| field "|
|00000ec0| 6c 65 74 74 65 72 32 22 | 0d 67 65 74 20 74 68 65 |letter2"|.get the|
|00000ed0| 20 66 72 65 65 53 69 7a | 65 20 6f 66 20 74 68 69 | freeSiz|e of thi|
|00000ee0| 73 20 73 74 61 63 6b 0d | 69 66 20 69 74 20 3e 3d |s stack.|if it >=|
|00000ef0| 20 28 74 68 65 20 53 69 | 7a 65 20 6f 66 20 74 68 | (the Si|ze of th|
|00000f00| 69 73 20 73 74 61 63 6b | 20 2a 20 2e 32 35 29 20 |is stack| * .25) |
|00000f10| 74 68 65 6e 20 63 6f 6d | 70 61 63 74 54 68 69 73 |then com|pactThis|
|00000f20| 53 74 61 63 6b 0d 67 6c | 6f 62 61 6c 20 6f 72 69 |Stack.gl|obal ori|
|00000f30| 67 69 6e 61 6c 55 73 65 | 72 4c 65 76 65 6c 54 65 |ginalUse|rLevelTe|
|00000f40| 6d 70 0d 69 66 20 6f 72 | 69 67 69 6e 61 6c 55 73 |mp.if or|iginalUs|
|00000f50| 65 72 4c 65 76 65 6c 54 | 65 6d 70 20 3d 20 31 20 |erLevelT|emp = 1 |
|00000f60| 74 68 65 6e 0d 73 65 74 | 20 75 73 65 72 4c 65 76 |then.set| userLev|
|00000f70| 65 6c 20 74 6f 20 31 0d | 70 75 74 20 65 6d 70 74 |el to 1.|put empt|
|00000f80| 79 0d 74 79 70 65 20 22 | 54 68 65 20 75 73 65 72 |y.type "|The user|
|00000f90| 20 6c 65 76 65 6c 20 68 | 61 73 20 62 65 65 6e 20 | level h|as been |
|00000fa0| 72 65 73 65 74 20 74 6f | 20 31 2e 22 0d 65 6e 64 |reset to| 1.".end|
|00000fb0| 20 69 66 0d 2d 2d 20 72 | 65 73 65 74 20 6d 65 6e | if.-- r|eset men|
|00000fc0| 75 42 61 72 0d 64 69 73 | 61 62 6c 65 20 6d 65 6e |uBar.dis|able men|
|00000fd0| 75 20 22 43 72 79 70 74 | 6f 67 72 61 6d 22 0d 73 |u "Crypt|ogram".s|
|00000fe0| 68 6f 77 20 74 69 74 6c | 65 42 61 72 0d 65 6e 64 |how titl|eBar.end|
|00000ff0| 20 63 6c 6f 73 65 53 74 | 61 63 6b 0d 0d 6f 6e 20 | closeSt|ack..on |
|00001000| 68 79 70 65 72 63 61 72 | 64 56 65 72 73 69 6f 6e |hypercar|dVersion|
|00001010| 0d 69 66 20 74 68 65 20 | 76 65 72 73 69 6f 6e 20 |.if the |version |
|00001020| 3c 20 32 2e 31 20 74 68 | 65 6e 0d 61 6e 73 77 65 |< 2.1 th|en.answe|
|00001030| 72 20 22 54 68 69 73 20 | 73 74 61 63 6b 20 72 65 |r "This |stack re|
|00001040| 71 75 69 72 65 73 20 48 | 79 70 65 72 43 61 72 64 |quires H|yperCard|
|00001050| 20 76 65 72 73 69 6f 6e | 20 32 2e 31 2e 20 6f 72 | version| 2.1. or|
|00001060| 20 68 69 67 68 65 72 21 | 22 0d 67 6f 20 68 6f 6d | higher!|".go hom|
|00001070| 65 0d 65 78 69 74 20 74 | 6f 20 48 79 70 65 72 43 |e.exit t|o HyperC|
|00001080| 61 72 64 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 68 |ard.end |if.end h|
|00001090| 79 70 65 72 63 61 72 64 | 56 65 72 73 69 6f 6e 0d |ypercard|Version.|
|000010a0| 0d 6f 6e 20 63 6f 6d 70 | 61 63 74 54 68 69 73 53 |.on comp|actThisS|
|000010b0| 74 61 63 6b 0d 70 75 74 | 20 74 68 65 20 75 73 65 |tack.put| the use|
|000010c0| 72 4c 65 76 65 6c 20 69 | 6e 74 6f 20 75 73 65 72 |rLevel i|nto user|
|000010d0| 4c 65 76 65 6c 54 65 6d | 70 0d 73 65 74 20 74 68 |LevelTem|p.set th|
|000010e0| 65 20 75 73 65 72 4c 65 | 76 65 6c 20 74 6f 20 35 |e userLe|vel to 5|
|000010f0| 0d 70 75 74 20 65 6d 70 | 74 79 0d 74 79 70 65 20 |.put emp|ty.type |
|00001100| 22 43 6f 6d 70 61 63 74 | 69 6e 67 20 74 68 65 20 |"Compact|ing the |
|00001110| 73 74 61 63 6b c9 70 6c | 65 61 73 65 20 77 61 69 |stack.pl|ease wai|
|00001120| 74 21 22 0d 64 6f 4d 65 | 6e 75 20 22 43 6f 6d 70 |t!".doMe|nu "Comp|
|00001130| 61 63 74 20 53 74 61 63 | 6b 22 0d 73 65 74 20 74 |act Stac|k".set t|
|00001140| 68 65 20 75 73 65 72 4c | 65 76 65 6c 20 74 6f 20 |he userL|evel to |
|00001150| 75 73 65 72 4c 65 76 65 | 6c 54 65 6d 70 0d 68 69 |userLeve|lTemp.hi|
|00001160| 64 65 20 6d 73 67 0d 65 | 6e 64 20 63 6f 6d 70 61 |de msg.e|nd compa|
|00001170| 63 74 54 68 69 73 53 74 | 61 63 6b 0d 0d 6f 6e 20 |ctThisSt|ack..on |
|00001180| 73 6f 6c 76 65 49 74 46 | 6f 72 4d 65 0d 6c 6f 63 |solveItF|orMe.loc|
|00001190| 6b 20 73 63 72 65 65 6e | 0d 73 65 74 20 74 68 65 |k screen|.set the|
|000011a0| 20 65 6e 61 62 6c 65 64 | 20 6f 66 20 6d 65 6e 75 | enabled| of menu|
|000011b0| 49 74 65 6d 20 22 44 69 | 66 66 69 63 75 6c 74 20 |Item "Di|fficult |
|000011c0| 50 75 7a 7a 6c 65 22 20 | 6f 66 20 6d 65 6e 75 20 |Puzzle" |of menu |
|000011d0| 22 43 72 79 70 74 6f 67 | 72 61 6d 22 20 74 6f 20 |"Cryptog|ram" to |
|000011e0| 74 72 75 65 0d 70 75 74 | 20 22 73 6f 6c 75 74 69 |true.put| "soluti|
|000011f0| 6f 6e 20 67 69 76 65 6e | 22 20 69 6e 74 6f 20 6c |on given|" into l|
|00001200| 69 6e 65 20 32 20 6f 66 | 20 66 69 65 6c 64 20 22 |ine 2 of| field "|
|00001210| 72 65 63 6f 72 64 22 0d | 70 75 74 20 6c 69 6e 65 |record".|put line|
|00001220| 20 33 20 74 6f 20 28 74 | 68 65 20 6e 75 6d 62 65 | 3 to (t|he numbe|
|00001230| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 66 69 |r of lin|es of fi|
|00001240| 65 6c 64 20 72 65 63 6f | 72 64 29 20 6f 66 20 66 |eld reco|rd) of f|
|00001250| 69 65 6c 64 20 72 65 63 | 6f 72 64 20 c2 0d 69 6e |ield rec|ord ..in|
|00001260| 74 6f 20 66 69 65 6c 64 | 20 6d 79 50 75 7a 7a 6c |to field| myPuzzl|
|00001270| 65 0d 75 6e 6c 6f 63 6b | 20 73 63 72 65 65 6e 20 |e.unlock| screen |
|00001280| 77 69 74 68 20 64 69 73 | 73 6f 6c 76 65 20 76 65 |with dis|solve ve|
|00001290| 72 79 20 66 61 73 74 0d | 65 6e 64 20 73 6f 6c 76 |ry fast.|end solv|
|000012a0| 65 49 74 46 6f 72 4d 65 | 0d 0d 2d 2d 20 4d 45 4e |eItForMe|..-- MEN|
|000012b0| 55 20 4d 45 53 53 41 47 | 45 53 20 43 52 45 41 54 |U MESSAG|ES CREAT|
|000012c0| 45 44 20 32 2d 31 31 2d | 39 33 0d 2d 2d 20 2a 2a |ED 2-11-|93.-- **|
|000012d0| 20 2d 2d 20 2a 2a 20 2d | 2d 20 2a 2a 0d 6f 6e 20 | -- ** -|- **.on |
|000012e0| 63 72 65 61 74 65 43 72 | 79 70 74 6f 67 72 61 6d |createCr|yptogram|
|000012f0| 4d 65 6e 75 0d 69 66 20 | 74 68 65 72 65 20 69 73 |Menu.if |there is|
|00001300| 20 61 20 6d 65 6e 75 20 | 22 43 72 79 70 74 6f 67 | a menu |"Cryptog|
|00001310| 72 61 6d 22 20 74 68 65 | 6e 20 65 78 69 74 20 63 |ram" the|n exit c|
|00001320| 72 65 61 74 65 43 72 79 | 70 74 6f 67 72 61 6d 4d |reateCry|ptogramM|
|00001330| 65 6e 75 0d 63 72 65 61 | 74 65 20 6d 65 6e 75 20 |enu.crea|te menu |
|00001340| 22 43 72 79 70 74 6f 67 | 72 61 6d 22 20 2d 2d 20 |"Cryptog|ram" -- |
|00001350| 61 66 74 65 72 20 6d 65 | 6e 75 20 22 4f 62 6a 65 |after me|nu "Obje|
|00001360| 63 74 73 22 0d 70 75 74 | 20 63 72 65 61 74 65 43 |cts".put| createC|
|00001370| 72 79 70 74 6f 67 72 61 | 6d 4d 65 6e 75 49 74 65 |ryptogra|mMenuIte|
|00001380| 6d 73 28 29 20 69 6e 74 | 6f 20 6d 65 6e 75 20 22 |ms() int|o menu "|
|00001390| 43 72 79 70 74 6f 67 72 | 61 6d 22 20 77 69 74 68 |Cryptogr|am" with|
|000013a0| 20 6d 65 6e 75 4d 73 67 | 20 63 72 65 61 74 65 43 | menuMsg| createC|
|000013b0| 72 79 70 74 6f 67 72 61 | 6d 4d 65 6e 75 4d 73 67 |ryptogra|mMenuMsg|
|000013c0| 73 28 29 0d 73 65 74 20 | 63 6f 6d 6d 61 6e 64 43 |s().set |commandC|
|000013d0| 68 61 72 20 6f 66 20 6d | 65 6e 75 49 74 65 6d 20 |har of m|enuItem |
|000013e0| 32 20 6f 66 20 6d 65 6e | 75 20 22 43 72 79 70 74 |2 of men|u "Crypt|
|000013f0| 6f 67 72 61 6d 22 20 74 | 6f 20 22 4b 22 0d 73 65 |ogram" t|o "K".se|
|00001400| 74 20 63 68 65 63 6b 4d | 61 72 6b 20 6f 66 20 6d |t checkM|ark of m|
|00001410| 65 6e 75 49 74 65 6d 20 | 38 20 6f 66 20 6d 65 6e |enuItem |8 of men|
|00001420| 75 20 22 43 72 79 70 74 | 6f 67 72 61 6d 22 20 74 |u "Crypt|ogram" t|
|00001430| 6f 20 74 72 75 65 0d 64 | 69 73 61 62 6c 65 20 6d |o true.d|isable m|
|00001440| 65 6e 75 49 74 65 6d 20 | 33 20 6f 66 20 6d 65 6e |enuItem |3 of men|
|00001450| 75 20 22 43 72 79 70 74 | 6f 67 72 61 6d 22 0d 65 |u "Crypt|ogram".e|
|00001460| 6e 64 20 63 72 65 61 74 | 65 43 72 79 70 74 6f 67 |nd creat|eCryptog|
|00001470| 72 61 6d 4d 65 6e 75 0d | 0d 66 75 6e 63 74 69 6f |ramMenu.|.functio|
|00001480| 6e 20 63 72 65 61 74 65 | 43 72 79 70 74 6f 67 72 |n create|Cryptogr|
|00001490| 61 6d 4d 65 6e 75 49 74 | 65 6d 73 0d 72 65 74 75 |amMenuIt|ems.retu|
|000014a0| 72 6e 20 22 43 68 61 6e | 67 65 20 50 75 7a 7a 6c |rn "Chan|ge Puzzl|
|000014b0| 65 20 46 6f 72 6d 61 74 | 22 20 26 20 72 65 74 75 |e Format|" & retu|
|000014c0| 72 6e 20 26 20 c2 0d 22 | 4b 65 79 62 6f 61 72 64 |rn & .."|Keyboard|
|000014d0| 20 45 6e 74 72 79 22 20 | 26 20 72 65 74 75 72 6e | Entry" |& return|
|000014e0| 20 26 20 c2 0d 22 2d 22 | 20 26 20 72 65 74 75 72 | & .."-"| & retur|
|000014f0| 6e 20 26 20 c2 0d 22 44 | 69 66 66 69 63 75 6c 74 |n & .."D|ifficult|
|00001500| 20 50 75 7a 7a 6c 65 22 | 20 26 20 72 65 74 75 72 | Puzzle"| & retur|
|00001510| 6e 20 26 20 c2 0d 22 52 | 65 73 74 61 72 74 20 50 |n & .."R|estart P|
|00001520| 75 7a 7a 6c 65 22 20 26 | 20 72 65 74 75 72 6e 20 |uzzle" &| return |
|00001530| 26 20 c2 0d 22 53 6f 6c | 76 65 20 50 75 7a 7a 6c |& .."Sol|ve Puzzl|
|00001540| 65 c9 22 20 26 20 72 65 | 74 75 72 6e 20 26 20 c2 |e." & re|turn & .|
|00001550| 0d 22 2d 22 20 26 20 72 | 65 74 75 72 6e 20 26 20 |."-" & r|eturn & |
|00001560| c2 0d 22 53 6f 75 6e 64 | 22 20 26 20 72 65 74 75 |.."Sound|" & retu|
|00001570| 72 6e 0d 65 6e 64 20 63 | 72 65 61 74 65 43 72 79 |rn.end c|reateCry|
|00001580| 70 74 6f 67 72 61 6d 4d | 65 6e 75 49 74 65 6d 73 |ptogramM|enuItems|
|00001590| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 63 72 65 61 74 |..functi|on creat|
|000015a0| 65 43 72 79 70 74 6f 67 | 72 61 6d 4d 65 6e 75 4d |eCryptog|ramMenuM|
|000015b0| 73 67 73 0d 72 65 74 75 | 72 6e 20 22 63 68 61 6e |sgs.retu|rn "chan|
|000015c0| 67 65 50 75 7a 7a 6c 65 | 46 6f 72 6d 61 74 22 20 |gePuzzle|Format" |
|000015d0| 26 20 72 65 74 75 72 6e | 20 26 20 c2 0d 22 75 73 |& return| & .."us|
|000015e0| 65 4b 65 79 62 6f 61 72 | 64 22 20 26 20 72 65 74 |eKeyboar|d" & ret|
|000015f0| 75 72 6e 20 26 20 c2 0d | 22 22 20 26 20 72 65 74 |urn & ..|"" & ret|
|00001600| 75 72 6e 20 26 20 c2 0d | 22 74 6f 67 67 6c 65 44 |urn & ..|"toggleD|
|00001610| 69 66 66 69 63 75 6c 74 | 79 22 20 26 20 72 65 74 |ifficult|y" & ret|
|00001620| 75 72 6e 20 26 20 c2 0d | 22 72 65 73 74 61 72 74 |urn & ..|"restart|
|00001630| 50 75 7a 7a 6c 65 22 20 | 26 20 72 65 74 75 72 6e |Puzzle" |& return|
|00001640| 20 26 20 c2 0d 22 73 6f | 6c 76 65 50 75 7a 7a 6c | & .."so|lvePuzzl|
|00001650| 65 22 20 26 20 72 65 74 | 75 72 6e 20 26 20 c2 0d |e" & ret|urn & ..|
|00001660| 22 22 20 26 20 72 65 74 | 75 72 6e 20 26 20 c2 0d |"" & ret|urn & ..|
|00001670| 22 74 6f 67 67 6c 65 53 | 6f 75 6e 64 22 0d 65 6e |"toggleS|ound".en|
|00001680| 64 20 63 72 65 61 74 65 | 43 72 79 70 74 6f 67 72 |d create|Cryptogr|
|00001690| 61 6d 4d 65 6e 75 4d 73 | 67 73 0d 2d 2d 20 2a 2a |amMenuMs|gs.-- **|
|000016a0| 20 2d 2d 20 2a 2a 20 2d | 2d 20 2a 2a 0d 0d 6f 6e | -- ** -|- **..on|
|000016b0| 20 63 68 61 6e 67 65 50 | 75 7a 7a 6c 65 46 6f 72 | changeP|uzzleFor|
|000016c0| 6d 61 74 0d 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |mat.lock| screen.|
|000016d0| 69 66 20 74 68 65 20 74 | 65 78 74 46 6f 6e 74 20 |if the t|extFont |
|000016e0| 6f 66 20 66 69 65 6c 64 | 20 6d 79 50 75 7a 7a 6c |of field| myPuzzl|
|000016f0| 65 20 3d 20 22 48 65 6c | 76 65 74 69 63 61 22 20 |e = "Hel|vetica" |
|00001700| 74 68 65 6e 0d 2d 2d 20 | 4f 56 45 52 4c 41 50 50 |then.-- |OVERLAPP|
|00001710| 49 4e 47 20 46 49 45 4c | 44 53 0d 73 65 74 20 74 |ING FIEL|DS.set t|
|00001720| 68 65 20 72 65 63 74 20 | 6f 66 20 66 69 65 6c 64 |he rect |of field|
|00001730| 20 6d 79 50 75 7a 7a 6c | 65 20 74 6f 20 32 30 2c | myPuzzl|e to 20,|
|00001740| 37 37 2c 34 39 34 2c 32 | 32 34 0d 73 65 74 20 74 |77,494,2|24.set t|
|00001750| 68 65 20 72 65 63 74 20 | 6f 66 20 66 69 65 6c 64 |he rect |of field|
|00001760| 20 63 72 79 70 74 6f 50 | 75 7a 7a 6c 65 20 74 6f | cryptoP|uzzle to|
|00001770| 20 32 31 2c 39 32 2c 34 | 39 33 2c 32 33 38 0d 73 | 21,92,4|93,238.s|
|00001780| 65 74 20 77 69 64 65 4d | 61 72 67 69 6e 73 20 6f |et wideM|argins o|
|00001790| 66 20 66 69 65 6c 64 20 | 6d 79 50 75 7a 7a 6c 65 |f field |myPuzzle|
|000017a0| 20 74 6f 20 74 72 75 65 | 0d 73 65 74 20 77 69 64 | to true|.set wid|
|000017b0| 65 4d 61 72 67 69 6e 73 | 20 6f 66 20 66 69 65 6c |eMargins| of fiel|
|000017c0| 64 20 63 72 79 70 74 6f | 50 75 7a 7a 6c 65 20 74 |d crypto|Puzzle t|
|000017d0| 6f 20 74 72 75 65 0d 73 | 65 74 20 74 68 65 20 74 |o true.s|et the t|
|000017e0| 65 78 74 46 6f 6e 74 20 | 6f 66 20 66 69 65 6c 64 |extFont |of field|
|000017f0| 20 6d 79 50 75 7a 7a 6c | 65 20 74 6f 20 4d 6f 6e | myPuzzl|e to Mon|
|00001800| 61 63 6f 0d 73 65 74 20 | 74 68 65 20 74 65 78 74 |aco.set |the text|
|00001810| 46 6f 6e 74 20 6f 66 20 | 66 69 65 6c 64 20 63 72 |Font of |field cr|
|00001820| 79 70 74 6f 50 75 7a 7a | 6c 65 20 74 6f 20 4d 6f |yptoPuzz|le to Mo|
|00001830| 6e 61 63 6f 0d 73 65 74 | 20 74 68 65 20 74 65 78 |naco.set| the tex|
|00001840| 74 53 69 7a 65 20 6f 66 | 20 66 69 65 6c 64 20 6d |tSize of| field m|
|00001850| 79 50 75 7a 7a 6c 65 20 | 74 6f 20 31 32 0d 73 65 |yPuzzle |to 12.se|
|00001860| 74 20 74 68 65 20 74 65 | 78 74 53 69 7a 65 20 6f |t the te|xtSize o|
|00001870| 66 20 66 69 65 6c 64 20 | 63 72 79 70 74 6f 50 75 |f field |cryptoPu|
|00001880| 7a 7a 6c 65 20 74 6f 20 | 31 32 0d 73 65 74 20 74 |zzle to |12.set t|
|00001890| 68 65 20 74 65 78 74 48 | 65 69 67 68 74 20 6f 66 |he textH|eight of|
|000018a0| 20 66 69 65 6c 64 20 6d | 79 50 75 7a 7a 6c 65 20 | field m|yPuzzle |
|000018b0| 74 6f 20 33 36 0d 73 65 | 74 20 74 68 65 20 74 65 |to 36.se|t the te|
|000018c0| 78 74 48 65 69 67 68 74 | 20 6f 66 20 66 69 65 6c |xtHeight| of fiel|
|000018d0| 64 20 63 72 79 70 74 6f | 50 75 7a 7a 6c 65 20 74 |d crypto|Puzzle t|
|000018e0| 6f 20 33 36 0d 73 65 74 | 20 74 68 65 20 74 65 78 |o 36.set| the tex|
|000018f0| 74 53 74 79 6c 65 20 6f | 66 20 66 69 65 6c 64 20 |tStyle o|f field |
|00001900| 6d 79 50 75 7a 7a 6c 65 | 20 74 6f 20 65 78 74 65 |myPuzzle| to exte|
|00001910| 6e 64 0d 73 65 74 20 74 | 68 65 20 74 65 78 74 53 |nd.set t|he textS|
|00001920| 74 79 6c 65 20 6f 66 20 | 66 69 65 6c 64 20 63 72 |tyle of |field cr|
|00001930| 79 70 74 6f 50 75 7a 7a | 6c 65 20 74 6f 20 65 78 |yptoPuzz|le to ex|
|00001940| 74 65 6e 64 0d 73 65 74 | 20 74 68 65 20 74 65 78 |tend.set| the tex|
|00001950| 74 41 6c 69 67 6e 20 6f | 66 20 66 69 65 6c 64 20 |tAlign o|f field |
|00001960| 6d 79 50 75 7a 7a 6c 65 | 20 74 6f 20 63 65 6e 74 |myPuzzle| to cent|
|00001970| 65 72 0d 73 65 74 20 74 | 68 65 20 74 65 78 74 41 |er.set t|he textA|
|00001980| 6c 69 67 6e 20 6f 66 20 | 66 69 65 6c 64 20 63 72 |lign of |field cr|
|00001990| 79 70 74 6f 50 75 7a 7a | 6c 65 20 74 6f 20 63 65 |yptoPuzz|le to ce|
|000019a0| 6e 74 65 72 0d 2d 2d 0d | 73 65 74 20 74 65 78 74 |nter.--.|set text|
|000019b0| 46 6f 6e 74 20 6f 66 20 | 66 69 65 6c 64 20 61 6c |Font of |field al|
|000019c0| 70 68 61 62 65 74 20 74 | 6f 20 4d 6f 6e 61 63 6f |phabet t|o Monaco|
|000019d0| 0d 73 65 74 20 74 65 78 | 74 46 6f 6e 74 20 6f 66 |.set tex|tFont of|
|000019e0| 20 66 69 65 6c 64 20 70 | 72 65 73 73 41 6c 70 68 | field p|ressAlph|
|000019f0| 61 62 65 74 20 74 6f 20 | 4d 6f 6e 61 63 6f 0d 73 |abet to |Monaco.s|
|00001a00| 65 74 20 74 65 78 74 53 | 69 7a 65 20 6f 66 20 66 |et textS|ize of f|
|00001a10| 69 65 6c 64 20 61 6c 70 | 68 61 62 65 74 20 74 6f |ield alp|habet to|
|00001a20| 20 31 34 0d 73 65 74 20 | 74 65 78 74 53 69 7a 65 | 14.set |textSize|
|00001a30| 20 6f 66 20 66 69 65 6c | 64 20 70 72 65 73 73 41 | of fiel|d pressA|
|00001a40| 6c 70 68 61 62 65 74 20 | 74 6f 20 31 34 0d 73 65 |lphabet |to 14.se|
|00001a50| 74 20 74 65 78 74 46 6f | 6e 74 20 6f 66 20 66 69 |t textFo|nt of fi|
|00001a60| 65 6c 64 20 6c 65 74 74 | 65 72 31 20 74 6f 20 4d |eld lett|er1 to M|
|00001a70| 6f 6e 61 63 6f 0d 73 65 | 74 20 74 65 78 74 46 6f |onaco.se|t textFo|
|00001a80| 6e 74 20 6f 66 20 66 69 | 65 6c 64 20 6c 65 74 74 |nt of fi|eld lett|
|00001a90| 65 72 32 20 74 6f 20 4d | 6f 6e 61 63 6f 0d 73 65 |er2 to M|onaco.se|
|00001aa0| 74 20 74 65 78 74 53 69 | 7a 65 20 6f 66 20 66 69 |t textSi|ze of fi|
|00001ab0| 65 6c 64 20 6c 65 74 74 | 65 72 31 20 74 6f 20 31 |eld lett|er1 to 1|
|00001ac0| 34 0d 73 65 74 20 74 65 | 78 74 53 69 7a 65 20 6f |4.set te|xtSize o|
|00001ad0| 66 20 66 69 65 6c 64 20 | 6c 65 74 74 65 72 32 20 |f field |letter2 |
|00001ae0| 74 6f 20 31 34 0d 65 6c | 73 65 0d 2d 2d 20 53 45 |to 14.el|se.-- SE|
|00001af0| 50 41 52 41 54 45 20 46 | 49 45 4c 44 53 0d 73 65 |PARATE F|IELDS.se|
|00001b00| 74 20 74 68 65 20 72 65 | 63 74 20 6f 66 20 66 69 |t the re|ct of fi|
|00001b10| 65 6c 64 20 6d 79 50 75 | 7a 7a 6c 65 20 74 6f 20 |eld myPu|zzle to |
|00001b20| 32 35 2c 39 32 2c 34 39 | 30 2c 31 37 31 0d 73 65 |25,92,49|0,171.se|
|00001b30| 74 20 74 68 65 20 72 65 | 63 74 20 6f 66 20 66 69 |t the re|ct of fi|
|00001b40| 65 6c 64 20 63 72 79 70 | 74 6f 50 75 7a 7a 6c 65 |eld cryp|toPuzzle|
|00001b50| 20 74 6f 20 32 35 2c 31 | 37 30 2c 34 39 30 2c 32 | to 25,1|70,490,2|
|00001b60| 34 39 0d 73 65 74 20 74 | 68 65 20 74 65 78 74 46 |49.set t|he textF|
|00001b70| 6f 6e 74 20 6f 66 20 66 | 69 65 6c 64 20 6d 79 50 |ont of f|ield myP|
|00001b80| 75 7a 7a 6c 65 20 74 6f | 20 48 65 6c 76 65 74 69 |uzzle to| Helveti|
|00001b90| 63 61 0d 73 65 74 20 74 | 68 65 20 74 65 78 74 46 |ca.set t|he textF|
|00001ba0| 6f 6e 74 20 6f 66 20 66 | 69 65 6c 64 20 63 72 79 |ont of f|ield cry|
|00001bb0| 70 74 6f 50 75 7a 7a 6c | 65 20 74 6f 20 48 65 6c |ptoPuzzl|e to Hel|
|00001bc0| 76 65 74 69 63 61 0d 73 | 65 74 20 74 68 65 20 74 |vetica.s|et the t|
|00001bd0| 65 78 74 53 69 7a 65 20 | 6f 66 20 66 69 65 6c 64 |extSize |of field|
|00001be0| 20 6d 79 50 75 7a 7a 6c | 65 20 74 6f 20 31 38 0d | myPuzzl|e to 18.|
|00001bf0| 73 65 74 20 74 68 65 20 | 74 65 78 74 53 69 7a 65 |set the |textSize|
|00001c00| 20 6f 66 20 66 69 65 6c | 64 20 63 72 79 70 74 6f | of fiel|d crypto|
|00001c10| 50 75 7a 7a 6c 65 20 74 | 6f 20 31 38 0d 73 65 74 |Puzzle t|o 18.set|
|00001c20| 20 74 68 65 20 74 65 78 | 74 48 65 69 67 68 74 20 | the tex|tHeight |
|00001c30| 6f 66 20 66 69 65 6c 64 | 20 6d 79 50 75 7a 7a 6c |of field| myPuzzl|
|00001c40| 65 20 74 6f 20 31 33 0d | 73 65 74 20 74 68 65 20 |e to 13.|set the |
|00001c50| 74 65 78 74 48 65 69 67 | 68 74 20 6f 66 20 66 69 |textHeig|ht of fi|
|00001c60| 65 6c 64 20 63 72 79 70 | 74 6f 50 75 7a 7a 6c 65 |eld cryp|toPuzzle|
|00001c70| 20 74 6f 20 31 33 0d 73 | 65 74 20 74 68 65 20 74 | to 13.s|et the t|
|00001c80| 65 78 74 53 74 79 6c 65 | 20 6f 66 20 66 69 65 6c |extStyle| of fiel|
|00001c90| 64 20 6d 79 50 75 7a 7a | 6c 65 20 74 6f 20 70 6c |d myPuzz|le to pl|
|00001ca0| 61 69 6e 0d 73 65 74 20 | 74 68 65 20 74 65 78 74 |ain.set |the text|
|00001cb0| 53 74 79 6c 65 20 6f 66 | 20 66 69 65 6c 64 20 63 |Style of| field c|
|00001cc0| 72 79 70 74 6f 50 75 7a | 7a 6c 65 20 74 6f 20 70 |ryptoPuz|zle to p|
|00001cd0| 6c 61 69 6e 0d 73 65 74 | 20 74 68 65 20 74 65 78 |lain.set| the tex|
|00001ce0| 74 41 6c 69 67 6e 20 6f | 66 20 66 69 65 6c 64 20 |tAlign o|f field |
|00001cf0| 6d 79 50 75 7a 7a 6c 65 | 20 74 6f 20 63 65 6e 74 |myPuzzle| to cent|
|00001d00| 65 72 0d 73 65 74 20 74 | 68 65 20 74 65 78 74 41 |er.set t|he textA|
|00001d10| 6c 69 67 6e 20 6f 66 20 | 66 69 65 6c 64 20 63 72 |lign of |field cr|
|00001d20| 79 70 74 6f 50 75 7a 7a | 6c 65 20 74 6f 20 63 65 |yptoPuzz|le to ce|
|00001d30| 6e 74 65 72 0d 2d 2d 0d | 73 65 74 20 74 65 78 74 |nter.--.|set text|
|00001d40| 46 6f 6e 74 20 6f 66 20 | 66 69 65 6c 64 20 61 6c |Font of |field al|
|00001d50| 70 68 61 62 65 74 20 74 | 6f 20 48 65 6c 76 65 74 |phabet t|o Helvet|
|00001d60| 69 63 61 0d 73 65 74 20 | 74 65 78 74 46 6f 6e 74 |ica.set |textFont|
|00001d70| 20 6f 66 20 66 69 65 6c | 64 20 70 72 65 73 73 41 | of fiel|d pressA|
|00001d80| 6c 70 68 61 62 65 74 20 | 74 6f 20 48 65 6c 76 65 |lphabet |to Helve|
|00001d90| 74 69 63 61 0d 73 65 74 | 20 74 65 78 74 53 69 7a |tica.set| textSiz|
|00001da0| 65 20 6f 66 20 66 69 65 | 6c 64 20 61 6c 70 68 61 |e of fie|ld alpha|
|00001db0| 62 65 74 20 74 6f 20 31 | 38 0d 73 65 74 20 74 65 |bet to 1|8.set te|
|00001dc0| 78 74 53 69 7a 65 20 6f | 66 20 66 69 65 6c 64 20 |xtSize o|f field |
|00001dd0| 70 72 65 73 73 41 6c 70 | 68 61 62 65 74 20 74 6f |pressAlp|habet to|
|00001de0| 20 31 38 0d 73 65 74 20 | 74 65 78 74 46 6f 6e 74 | 18.set |textFont|
|00001df0| 20 6f 66 20 66 69 65 6c | 64 20 6c 65 74 74 65 72 | of fiel|d letter|
|00001e00| 31 20 74 6f 20 48 65 6c | 76 65 74 69 63 61 0d 73 |1 to Hel|vetica.s|
|00001e10| 65 74 20 74 65 78 74 46 | 6f 6e 74 20 6f 66 20 66 |et textF|ont of f|
|00001e20| 69 65 6c 64 20 6c 65 74 | 74 65 72 32 20 74 6f 20 |ield let|ter2 to |
|00001e30| 48 65 6c 76 65 74 69 63 | 61 0d 73 65 74 20 74 65 |Helvetic|a.set te|
|00001e40| 78 74 53 69 7a 65 20 6f | 66 20 66 69 65 6c 64 20 |xtSize o|f field |
|00001e50| 6c 65 74 74 65 72 31 20 | 74 6f 20 31 38 0d 73 65 |letter1 |to 18.se|
|00001e60| 74 20 74 65 78 74 53 69 | 7a 65 20 6f 66 20 66 69 |t textSi|ze of fi|
|00001e70| 65 6c 64 20 6c 65 74 74 | 65 72 32 20 74 6f 20 31 |eld lett|er2 to 1|
|00001e80| 38 0d 65 6e 64 20 69 66 | 0d 69 66 20 63 68 61 72 |8.end if|.if char|
|00001e90| 54 6f 4e 75 6d 20 6f 66 | 20 63 68 61 72 20 33 20 |ToNum of| char 3 |
|00001ea0| 6f 66 20 66 69 65 6c 64 | 20 70 72 65 73 73 41 6c |of field| pressAl|
|00001eb0| 70 68 61 62 65 74 20 3d | 20 36 35 20 61 6e 64 20 |phabet =| 65 and |
|00001ec0| c2 0d 74 65 78 74 46 6f | 6e 74 20 6f 66 20 66 69 |..textFo|nt of fi|
|00001ed0| 65 6c 64 20 61 6c 70 68 | 61 62 65 74 20 3d 20 22 |eld alph|abet = "|
|00001ee0| 48 65 6c 76 65 74 69 63 | 61 22 20 74 68 65 6e 0d |Helvetic|a" then.|
|00001ef0| 73 65 74 20 74 65 78 74 | 53 74 79 6c 65 20 6f 66 |set text|Style of|
|00001f00| 20 66 69 65 6c 64 20 61 | 6c 70 68 61 62 65 74 20 | field a|lphabet |
|00001f10| 74 6f 20 70 6c 61 69 6e | 0d 73 65 74 20 74 65 78 |to plain|.set tex|
|00001f20| 74 53 74 79 6c 65 20 6f | 66 20 66 69 65 6c 64 20 |tStyle o|f field |
|00001f30| 70 72 65 73 73 41 6c 70 | 68 61 62 65 74 20 74 6f |pressAlp|habet to|
|00001f40| 20 70 6c 61 69 6e 0d 65 | 6c 73 65 20 69 66 20 63 | plain.e|lse if c|
|00001f50| 68 61 72 54 6f 4e 75 6d | 20 6f 66 20 63 68 61 72 |harToNum| of char|
|00001f60| 20 33 20 6f 66 20 66 69 | 65 6c 64 20 70 72 65 73 | 3 of fi|eld pres|
|00001f70| 73 41 6c 70 68 61 62 65 | 74 20 3d 20 39 37 20 61 |sAlphabe|t = 97 a|
|00001f80| 6e 64 20 c2 0d 74 65 78 | 74 46 6f 6e 74 20 6f 66 |nd ..tex|tFont of|
|00001f90| 20 66 69 65 6c 64 20 61 | 6c 70 68 61 62 65 74 20 | field a|lphabet |
|00001fa0| 3d 20 22 48 65 6c 76 65 | 74 69 63 61 22 20 74 68 |= "Helve|tica" th|
|00001fb0| 65 6e 0d 73 65 74 20 74 | 65 78 74 53 74 79 6c 65 |en.set t|extStyle|
|00001fc0| 20 6f 66 20 66 69 65 6c | 64 20 61 6c 70 68 61 62 | of fiel|d alphab|
|00001fd0| 65 74 20 74 6f 20 65 78 | 74 65 6e 64 0d 73 65 74 |et to ex|tend.set|
|00001fe0| 20 74 65 78 74 53 74 79 | 6c 65 20 6f 66 20 66 69 | textSty|le of fi|
|00001ff0| 65 6c 64 20 70 72 65 73 | 73 41 6c 70 68 61 62 65 |eld pres|sAlphabe|
|00002000| 74 20 74 6f 20 65 78 74 | 65 6e 64 0d 65 6c 73 65 |t to ext|end.else|
|00002010| 20 69 66 20 63 68 61 72 | 54 6f 4e 75 6d 20 6f 66 | if char|ToNum of|
|00002020| 20 63 68 61 72 20 33 20 | 6f 66 20 66 69 65 6c 64 | char 3 |of field|
|00002030| 20 70 72 65 73 73 41 6c | 70 68 61 62 65 74 20 3d | pressAl|phabet =|
|00002040| 20 36 35 20 61 6e 64 20 | c2 0d 74 65 78 74 46 6f | 65 and |..textFo|
|00002050| 6e 74 20 6f 66 20 66 69 | 65 6c 64 20 61 6c 70 68 |nt of fi|eld alph|
|00002060| 61 62 65 74 20 3d 20 22 | 4d 6f 6e 61 63 6f 22 20 |abet = "|Monaco" |
|00002070| 74 68 65 6e 0d 73 65 74 | 20 74 65 78 74 53 74 79 |then.set| textSty|
|00002080| 6c 65 20 6f 66 20 66 69 | 65 6c 64 20 61 6c 70 68 |le of fi|eld alph|
|00002090| 61 62 65 74 20 74 6f 20 | 70 6c 61 69 6e 0d 73 65 |abet to |plain.se|
|000020a0| 74 20 74 65 78 74 53 74 | 79 6c 65 20 6f 66 20 66 |t textSt|yle of f|
|000020b0| 69 65 6c 64 20 70 72 65 | 73 73 41 6c 70 68 61 62 |ield pre|ssAlphab|
|000020c0| 65 74 20 74 6f 20 70 6c | 61 69 6e 0d 65 6c 73 65 |et to pl|ain.else|
|000020d0| 20 69 66 20 63 68 61 72 | 54 6f 4e 75 6d 20 6f 66 | if char|ToNum of|
|000020e0| 20 63 68 61 72 20 33 20 | 6f 66 20 66 69 65 6c 64 | char 3 |of field|
|000020f0| 20 70 72 65 73 73 41 6c | 70 68 61 62 65 74 20 3d | pressAl|phabet =|
|00002100| 20 39 37 20 61 6e 64 20 | c2 0d 74 65 78 74 46 6f | 97 and |..textFo|
|00002110| 6e 74 20 6f 66 20 66 69 | 65 6c 64 20 61 6c 70 68 |nt of fi|eld alph|
|00002120| 61 62 65 74 20 3d 20 22 | 4d 6f 6e 61 63 6f 22 20 |abet = "|Monaco" |
|00002130| 74 68 65 6e 0d 73 65 74 | 20 74 65 78 74 53 74 79 |then.set| textSty|
|00002140| 6c 65 20 6f 66 20 66 69 | 65 6c 64 20 61 6c 70 68 |le of fi|eld alph|
|00002150| 61 62 65 74 20 74 6f 20 | 70 6c 61 69 6e 0d 73 65 |abet to |plain.se|
|00002160| 74 20 74 65 78 74 53 74 | 79 6c 65 20 6f 66 20 66 |t textSt|yle of f|
|00002170| 69 65 6c 64 20 70 72 65 | 73 73 41 6c 70 68 61 62 |ield pre|ssAlphab|
|00002180| 65 74 20 74 6f 20 70 6c | 61 69 6e 0d 65 6e 64 20 |et to pl|ain.end |
|00002190| 69 66 0d 75 6e 6c 6f 63 | 6b 20 53 63 72 65 65 6e |if.unloc|k Screen|
|000021a0| 20 77 69 74 68 20 64 69 | 73 73 6f 6c 76 65 20 76 | with di|ssolve v|
|000021b0| 65 72 79 20 66 61 73 74 | 0d 65 6e 64 20 63 68 61 |ery fast|.end cha|
|000021c0| 6e 67 65 50 75 7a 7a 6c | 65 46 6f 72 6d 61 74 0d |ngePuzzl|eFormat.|
|000021d0| 0d 6f 6e 20 74 6f 67 67 | 6c 65 44 69 66 66 69 63 |.on togg|leDiffic|
|000021e0| 75 6c 74 79 0d 73 65 74 | 20 63 68 65 63 6b 4d 61 |ulty.set| checkMa|
|000021f0| 72 6b 20 6f 66 20 6d 65 | 6e 75 49 74 65 6d 20 22 |rk of me|nuItem "|
|00002200| 44 69 66 66 69 63 75 6c | 74 20 50 75 7a 7a 6c 65 |Difficul|t Puzzle|
|00002210| 22 20 6f 66 20 6d 65 6e | 75 20 22 43 72 79 70 74 |" of men|u "Crypt|
|00002220| 6f 67 72 61 6d 22 20 74 | 6f 20 c2 0d 6e 6f 74 20 |ogram" t|o ..not |
|00002230| 63 68 65 63 6b 4d 61 72 | 6b 20 6f 66 20 6d 65 6e |checkMar|k of men|
|00002240| 75 49 74 65 6d 20 22 44 | 69 66 66 69 63 75 6c 74 |uItem "D|ifficult|
|00002250| 20 50 75 7a 7a 6c 65 22 | 20 6f 66 20 6d 65 6e 75 | Puzzle"| of menu|
|00002260| 20 22 43 72 79 70 74 6f | 67 72 61 6d 22 0d 65 6e | "Crypto|gram".en|
|00002270| 64 20 74 6f 67 67 6c 65 | 44 69 66 66 69 63 75 6c |d toggle|Difficul|
|00002280| 74 79 0d 0d 6f 6e 20 72 | 65 73 74 61 72 74 50 75 |ty..on r|estartPu|
|00002290| 7a 7a 6c 65 0d 6c 6f 63 | 6b 20 53 63 72 65 65 6e |zzle.loc|k Screen|
|000022a0| 0d 67 6c 6f 62 61 6c 20 | 6b 65 79 4d 65 6d 6f 72 |.global |keyMemor|
|000022b0| 79 2c 6d 79 50 75 7a 7a | 6c 65 4d 65 6d 6f 72 79 |y,myPuzz|leMemory|
|000022c0| 0d 70 75 74 20 6b 65 79 | 4d 65 6d 6f 72 79 20 69 |.put key|Memory i|
|000022d0| 6e 74 6f 20 66 69 65 6c | 64 20 22 6b 65 79 22 0d |nto fiel|d "key".|
|000022e0| 70 75 74 20 6d 79 50 75 | 7a 7a 6c 65 4d 65 6d 6f |put myPu|zzleMemo|
|000022f0| 72 79 20 69 6e 74 6f 20 | 66 69 65 6c 64 20 6d 79 |ry into |field my|
|00002300| 50 75 7a 7a 6c 65 0d 74 | 6f 67 67 6c 65 44 69 66 |Puzzle.t|oggleDif|
|00002310| 66 69 63 75 6c 74 50 75 | 7a 7a 6c 65 0d 69 66 20 |ficultPu|zzle.if |
|00002320| 6c 69 6e 65 20 32 20 6f | 66 20 66 69 65 6c 64 20 |line 2 o|f field |
|00002330| 22 72 65 63 6f 72 64 22 | 20 3d 20 22 73 6f 6c 75 |"record"| = "solu|
|00002340| 74 69 6f 6e 20 67 69 76 | 65 6e 22 20 74 68 65 6e |tion giv|en" then|
|00002350| 0d 70 75 74 20 30 20 69 | 6e 74 6f 20 6c 69 6e 65 |.put 0 i|nto line|
|00002360| 20 31 20 6f 66 20 66 69 | 65 6c 64 20 72 65 63 6f | 1 of fi|eld reco|
|00002370| 72 64 0d 65 6e 64 20 69 | 66 0d 70 75 74 20 65 6d |rd.end i|f.put em|
|00002380| 70 74 79 20 69 6e 74 6f | 20 66 69 65 6c 64 20 22 |pty into| field "|
|00002390| 6c 65 74 74 65 72 31 22 | 0d 70 75 74 20 65 6d 70 |letter1"|.put emp|
|000023a0| 74 79 20 69 6e 74 6f 20 | 66 69 65 6c 64 20 22 6c |ty into |field "l|
|000023b0| 65 74 74 65 72 32 22 0d | 67 6c 6f 62 61 6c 20 6e |etter2".|global n|
|000023c0| 65 78 74 5f 66 69 65 6c | 64 5f 6e 61 6d 65 0d 70 |ext_fiel|d_name.p|
|000023d0| 75 74 20 22 6c 65 74 74 | 65 72 31 22 20 69 6e 74 |ut "lett|er1" int|
|000023e0| 6f 20 6e 65 78 74 5f 66 | 69 65 6c 64 5f 6e 61 6d |o next_f|ield_nam|
|000023f0| 65 0d 75 6e 6c 6f 63 6b | 20 53 63 72 65 65 6e 20 |e.unlock| Screen |
|00002400| 77 69 74 68 20 64 69 73 | 73 6f 6c 76 65 20 76 65 |with dis|solve ve|
|00002410| 72 79 20 66 61 73 74 0d | 65 6e 64 20 72 65 73 74 |ry fast.|end rest|
|00002420| 61 72 74 50 75 7a 7a 6c | 65 0d 0d 6f 6e 20 73 6f |artPuzzl|e..on so|
|00002430| 6c 76 65 50 75 7a 7a 6c | 65 0d 61 6e 73 77 65 72 |lvePuzzl|e.answer|
|00002440| 20 22 50 6c 65 61 73 65 | 20 63 68 6f 6f 73 65 20 | "Please| choose |
|00002450| 6f 6e 65 c9 22 20 77 69 | 74 68 20 22 43 61 6e 63 |one." wi|th "Canc|
|00002460| 65 6c 22 20 6f 72 20 22 | 4d 79 20 47 75 65 73 73 |el" or "|My Guess|
|00002470| 22 20 6f 72 20 22 54 65 | 6c 6c 20 6d 65 21 22 0d |" or "Te|ll me!".|
|00002480| 69 66 20 69 74 20 3d 20 | 22 22 20 74 68 65 6e 20 |if it = |"" then |
|00002490| 65 78 69 74 20 73 6f 6c | 76 65 50 75 7a 7a 6c 65 |exit sol|vePuzzle|
|000024a0| 0d 69 66 20 69 74 20 3d | 20 22 54 65 6c 6c 20 6d |.if it =| "Tell m|
|000024b0| 65 21 22 20 74 68 65 6e | 0d 73 6f 6c 76 65 49 74 |e!" then|.solveIt|
|000024c0| 46 6f 72 4d 65 0d 65 6e | 64 20 69 66 0d 69 66 20 |ForMe.en|d if.if |
|000024d0| 69 74 20 3d 20 22 4d 79 | 20 47 75 65 73 73 22 20 |it = "My| Guess" |
|000024e0| 74 68 65 6e 0d 6c 6f 63 | 6b 20 53 63 72 65 65 6e |then.loc|k Screen|
|000024f0| 0d 73 65 74 20 74 68 65 | 20 72 65 63 74 20 6f 66 |.set the| rect of|
|00002500| 20 63 64 20 66 69 65 6c | 64 20 6d 79 67 75 65 73 | cd fiel|d mygues|
|00002510| 73 20 74 6f 20 31 38 2c | 32 32 34 2c 34 39 36 2c |s to 18,|224,496,|
|00002520| 33 32 35 0d 70 75 74 20 | 22 54 68 65 20 70 75 7a |325.put |"The puz|
|00002530| 7a 6c 65 20 69 73 3a 22 | 20 26 20 72 65 74 75 72 |zle is:"| & retur|
|00002540| 6e 20 69 6e 74 6f 20 63 | 64 20 66 69 65 6c 64 20 |n into c|d field |
|00002550| 6d 79 47 75 65 73 73 0d | 68 69 64 65 20 66 69 65 |myGuess.|hide fie|
|00002560| 6c 64 20 63 72 79 70 74 | 6f 50 75 7a 7a 6c 65 0d |ld crypt|oPuzzle.|
|00002570| 53 68 6f 77 20 63 64 20 | 66 69 65 6c 64 20 6d 79 |Show cd |field my|
|00002580| 47 75 65 73 73 0d 73 68 | 6f 77 20 62 74 6e 20 22 |Guess.sh|ow btn "|
|00002590| 4f 6b 61 79 22 0d 73 68 | 6f 77 20 62 74 6e 20 22 |Okay".sh|ow btn "|
|000025a0| 43 61 6e 63 65 6c 22 0d | 67 6c 6f 62 61 6c 20 6b |Cancel".|global k|
|000025b0| 65 79 42 6f 61 72 64 4d | 65 6e 75 53 74 61 74 75 |eyBoardM|enuStatu|
|000025c0| 73 0d 69 66 20 74 68 65 | 20 63 68 65 63 6b 4d 61 |s.if the| checkMa|
|000025d0| 72 6b 20 6f 66 20 6d 65 | 6e 75 69 74 65 6d 20 22 |rk of me|nuitem "|
|000025e0| 4b 65 79 62 6f 61 72 64 | 20 45 6e 74 72 79 22 20 |Keyboard| Entry" |
|000025f0| 6f 66 20 6d 65 6e 75 20 | 22 43 72 79 70 74 6f 67 |of menu |"Cryptog|
|00002600| 72 61 6d 22 20 3d 20 74 | 72 75 65 20 74 68 65 6e |ram" = t|rue then|
|00002610| 0d 70 75 74 20 22 74 72 | 75 65 22 20 69 6e 74 6f |.put "tr|ue" into|
|00002620| 20 6b 65 79 42 6f 61 72 | 64 4d 65 6e 75 53 74 61 | keyBoar|dMenuSta|
|00002630| 74 75 73 0d 73 65 74 20 | 74 68 65 20 63 68 65 63 |tus.set |the chec|
|00002640| 6b 4d 61 72 6b 20 6f 66 | 20 6d 65 6e 75 69 74 65 |kMark of| menuite|
|00002650| 6d 20 22 4b 65 79 62 6f | 61 72 64 20 45 6e 74 72 |m "Keybo|ard Entr|
|00002660| 79 22 20 6f 66 20 6d 65 | 6e 75 20 22 43 72 79 70 |y" of me|nu "Cryp|
|00002670| 74 6f 67 72 61 6d 22 20 | 74 6f 20 66 61 6c 73 65 |togram" |to false|
|00002680| 0d 65 6c 73 65 0d 70 75 | 74 20 22 66 61 6c 73 65 |.else.pu|t "false|
|00002690| 22 20 69 6e 74 6f 20 6b | 65 79 42 6f 61 72 64 4d |" into k|eyBoardM|
|000026a0| 65 6e 75 53 74 61 74 75 | 73 0d 65 6e 64 20 69 66 |enuStatu|s.end if|
|000026b0| 0d 75 6e 6c 6f 63 6b 20 | 53 63 72 65 65 6e 20 77 |.unlock |Screen w|
|000026c0| 69 74 68 20 64 69 73 73 | 6f 6c 76 65 20 76 65 72 |ith diss|olve ver|
|000026d0| 79 20 66 61 73 74 0d 73 | 65 6c 65 63 74 20 61 66 |y fast.s|elect af|
|000026e0| 74 65 72 20 74 65 78 74 | 20 6f 66 20 63 64 20 66 |ter text| of cd f|
|000026f0| 69 65 6c 64 20 6d 79 47 | 75 65 73 73 0d 65 6e 64 |ield myG|uess.end|
|00002700| 20 69 66 0d 65 6e 64 20 | 73 6f 6c 76 65 50 75 7a | if.end |solvePuz|
|00002710| 7a 6c 65 0d 0d 6f 6e 20 | 74 6f 67 67 6c 65 53 6f |zle..on |toggleSo|
|00002720| 75 6e 64 0d 73 65 74 20 | 74 68 65 20 63 68 65 63 |und.set |the chec|
|00002730| 6b 4d 61 72 6b 20 6f 66 | 20 6d 65 6e 75 49 74 65 |kMark of| menuIte|
|00002740| 6d 20 22 53 6f 75 6e 64 | 22 20 6f 66 20 6d 65 6e |m "Sound|" of men|
|00002750| 75 20 22 43 72 79 70 74 | 6f 67 72 61 6d 22 20 74 |u "Crypt|ogram" t|
|00002760| 6f 20 c2 0d 6e 6f 74 20 | 74 68 65 20 63 68 65 63 |o ..not |the chec|
|00002770| 6b 4d 61 72 6b 20 6f 66 | 20 6d 65 6e 75 49 74 65 |kMark of| menuIte|
|00002780| 6d 20 22 53 6f 75 6e 64 | 22 20 6f 66 20 6d 65 6e |m "Sound|" of men|
|00002790| 75 20 22 43 72 79 70 74 | 6f 67 72 61 6d 22 0d 65 |u "Crypt|ogram".e|
|000027a0| 6e 64 20 74 6f 67 67 6c | 65 53 6f 75 6e 64 0d 0d |nd toggl|eSound..|
|000027b0| 6f 6e 20 74 6f 67 67 6c | 65 44 69 66 66 69 63 75 |on toggl|eDifficu|
|000027c0| 6c 74 50 75 7a 7a 6c 65 | 0d 2d 2d 20 43 48 41 4e |ltPuzzle|.-- CHAN|
|000027d0| 47 45 20 46 49 45 4c 44 | 20 41 4c 50 48 41 42 45 |GE FIELD| ALPHABE|
|000027e0| 54 0d 73 65 74 20 74 68 | 65 20 72 65 63 74 20 6f |T.set th|e rect o|
|000027f0| 66 20 66 69 65 6c 64 20 | 41 6c 70 68 61 62 65 74 |f field |Alphabet|
|00002800| 20 74 6f 20 32 34 2c 35 | 30 2c 34 39 31 2c 37 32 | to 24,5|0,491,72|
|00002810| 0d 70 75 74 20 22 61 20 | 62 20 63 20 64 20 65 20 |.put "a |b c d e |
|00002820| 66 20 67 20 68 20 69 20 | 6a 20 6b 20 6c 20 6d 20 |f g h i |j k l m |
|00002830| 6e 20 6f 20 70 20 71 20 | 72 20 73 20 74 20 75 20 |n o p q |r s t u |
|00002840| 76 20 77 20 78 20 79 20 | 7a 22 20 c2 0d 69 6e 74 |v w x y |z" ..int|
|00002850| 6f 20 66 69 65 6c 64 20 | 41 6c 70 68 61 62 65 74 |o field |Alphabet|
|00002860| 0d 69 66 20 74 68 65 20 | 63 68 65 63 6b 4d 61 72 |.if the |checkMar|
|00002870| 6b 20 6f 66 20 6d 65 6e | 75 49 74 65 6d 20 22 44 |k of men|uItem "D|
|00002880| 69 66 66 69 63 75 6c 74 | 20 50 75 7a 7a 6c 65 22 |ifficult| Puzzle"|
|00002890| 20 6f 66 20 6d 65 6e 75 | 20 22 43 72 79 70 74 6f | of menu| "Crypto|
|000028a0| 67 72 61 6d 22 20 c2 0d | 3d 20 74 72 75 65 20 74 |gram" ..|= true t|
|000028b0| 68 65 6e 0d 70 75 74 20 | 65 64 69 74 53 74 72 69 |hen.put |editStri|
|000028c0| 6e 67 28 22 75 63 61 73 | 65 22 2c 66 69 65 6c 64 |ng("ucas|e",field|
|000028d0| 20 61 6c 70 68 61 62 65 | 74 29 20 69 6e 74 6f 20 | alphabe|t) into |
|000028e0| 66 69 65 6c 64 20 41 6c | 70 68 61 62 65 74 0d 65 |field Al|phabet.e|
|000028f0| 6e 64 20 69 66 0d 2d 2d | 20 43 48 41 4e 47 45 20 |nd if.--| CHANGE |
|00002900| 46 49 45 4c 44 20 50 52 | 45 53 53 41 4c 50 48 41 |FIELD PR|ESSALPHA|
|00002910| 42 45 54 0d 73 65 74 20 | 74 68 65 20 72 65 63 74 |BET.set |the rect|
|00002920| 20 6f 66 20 66 69 65 6c | 64 20 70 72 65 73 73 41 | of fiel|d pressA|
|00002930| 6c 70 68 61 62 65 74 20 | 74 6f 20 32 31 2c 32 36 |lphabet |to 21,26|
|00002940| 36 2c 34 39 35 2c 32 38 | 37 0d 70 75 74 20 22 20 |6,495,28|7.put " |
|00002950| 20 61 20 62 20 63 20 64 | 20 65 20 66 20 67 20 68 | a b c d| e f g h|
|00002960| 20 69 20 6a 20 6b 20 6c | 20 6d 20 6e 20 6f 20 70 | i j k l| m n o p|
|00002970| 20 71 20 72 20 73 20 74 | 20 75 20 76 20 77 20 78 | q r s t| u v w x|
|00002980| 20 79 20 7a 20 20 22 20 | c2 0d 69 6e 74 6f 20 66 | y z  " |..into f|
|00002990| 69 65 6c 64 20 70 72 65 | 73 73 41 6c 70 68 61 62 |ield pre|ssAlphab|
|000029a0| 65 74 0d 69 66 20 74 68 | 65 20 63 68 65 63 6b 4d |et.if th|e checkM|
|000029b0| 61 72 6b 20 6f 66 20 6d | 65 6e 75 49 74 65 6d 20 |ark of m|enuItem |
|000029c0| 22 44 69 66 66 69 63 75 | 6c 74 20 50 75 7a 7a 6c |"Difficu|lt Puzzl|
|000029d0| 65 22 20 6f 66 20 6d 65 | 6e 75 20 22 43 72 79 70 |e" of me|nu "Cryp|
|000029e0| 74 6f 67 72 61 6d 22 20 | c2 0d 3d 20 74 72 75 65 |togram" |..= true|
|000029f0| 20 74 68 65 6e 0d 70 75 | 74 20 65 64 69 74 53 74 | then.pu|t editSt|
|00002a00| 72 69 6e 67 28 22 75 63 | 61 73 65 22 2c 66 69 65 |ring("uc|ase",fie|
|00002a10| 6c 64 20 70 72 65 73 73 | 41 6c 70 68 61 62 65 74 |ld press|Alphabet|
|00002a20| 29 20 69 6e 74 6f 20 66 | 69 65 6c 64 20 70 72 65 |) into f|ield pre|
|00002a30| 73 73 41 6c 70 68 61 62 | 65 74 0d 65 6e 64 20 69 |ssAlphab|et.end i|
|00002a40| 66 0d 0d 69 66 20 63 68 | 61 72 54 6f 4e 75 6d 20 |f..if ch|arToNum |
|00002a50| 6f 66 20 63 68 61 72 20 | 33 20 6f 66 20 66 69 65 |of char |3 of fie|
|00002a60| 6c 64 20 70 72 65 73 73 | 41 6c 70 68 61 62 65 74 |ld press|Alphabet|
|00002a70| 20 3d 20 36 35 20 61 6e | 64 20 c2 0d 74 65 78 74 | = 65 an|d ..text|
|00002a80| 46 6f 6e 74 20 6f 66 20 | 66 69 65 6c 64 20 61 6c |Font of |field al|
|00002a90| 70 68 61 62 65 74 20 3d | 20 22 48 65 6c 76 65 74 |phabet =| "Helvet|
|00002aa0| 69 63 61 22 20 74 68 65 | 6e 0d 73 65 74 20 74 65 |ica" the|n.set te|
|00002ab0| 78 74 53 74 79 6c 65 20 | 6f 66 20 66 69 65 6c 64 |xtStyle |of field|
|00002ac0| 20 61 6c 70 68 61 62 65 | 74 20 74 6f 20 70 6c 61 | alphabe|t to pla|
|00002ad0| 69 6e 0d 73 65 74 20 74 | 65 78 74 53 74 79 6c 65 |in.set t|extStyle|
|00002ae0| 20 6f 66 20 66 69 65 6c | 64 20 70 72 65 73 73 41 | of fiel|d pressA|
|00002af0| 6c 70 68 61 62 65 74 20 | 74 6f 20 70 6c 61 69 6e |lphabet |to plain|
|00002b00| 0d 65 6c 73 65 20 69 66 | 20 63 68 61 72 54 6f 4e |.else if| charToN|
|00002b10| 75 6d 20 6f 66 20 63 68 | 61 72 20 33 20 6f 66 20 |um of ch|ar 3 of |
|00002b20| 66 69 65 6c 64 20 70 72 | 65 73 73 41 6c 70 68 61 |field pr|essAlpha|
|00002b30| 62 65 74 20 3d 20 39 37 | 20 61 6e 64 20 c2 0d 74 |bet = 97| and ..t|
|00002b40| 65 78 74 46 6f 6e 74 20 | 6f 66 20 66 69 65 6c 64 |extFont |of field|
|00002b50| 20 61 6c 70 68 61 62 65 | 74 20 3d 20 22 48 65 6c | alphabe|t = "Hel|
|00002b60| 76 65 74 69 63 61 22 20 | 74 68 65 6e 0d 73 65 74 |vetica" |then.set|
|00002b70| 20 74 65 78 74 53 74 79 | 6c 65 20 6f 66 20 66 69 | textSty|le of fi|
|00002b80| 65 6c 64 20 61 6c 70 68 | 61 62 65 74 20 74 6f 20 |eld alph|abet to |
|00002b90| 65 78 74 65 6e 64 0d 73 | 65 74 20 74 65 78 74 53 |extend.s|et textS|
|00002ba0| 74 79 6c 65 20 6f 66 20 | 66 69 65 6c 64 20 70 72 |tyle of |field pr|
|00002bb0| 65 73 73 41 6c 70 68 61 | 62 65 74 20 74 6f 20 65 |essAlpha|bet to e|
|00002bc0| 78 74 65 6e 64 0d 65 6c | 73 65 20 69 66 20 63 68 |xtend.el|se if ch|
|00002bd0| 61 72 54 6f 4e 75 6d 20 | 6f 66 20 63 68 61 72 20 |arToNum |of char |
|00002be0| 33 20 6f 66 20 66 69 65 | 6c 64 20 70 72 65 73 73 |3 of fie|ld press|
|00002bf0| 41 6c 70 68 61 62 65 74 | 20 3d 20 36 35 20 61 6e |Alphabet| = 65 an|
|00002c00| 64 20 c2 0d 74 65 78 74 | 46 6f 6e 74 20 6f 66 20 |d ..text|Font of |
|00002c10| 66 69 65 6c 64 20 61 6c | 70 68 61 62 65 74 20 3d |field al|phabet =|
|00002c20| 20 22 4d 6f 6e 61 63 6f | 22 20 74 68 65 6e 0d 73 | "Monaco|" then.s|
|00002c30| 65 74 20 74 65 78 74 53 | 74 79 6c 65 20 6f 66 20 |et textS|tyle of |
|00002c40| 66 69 65 6c 64 20 61 6c | 70 68 61 62 65 74 20 74 |field al|phabet t|
|00002c50| 6f 20 70 6c 61 69 6e 0d | 73 65 74 20 74 65 78 74 |o plain.|set text|
|00002c60| 53 74 79 6c 65 20 6f 66 | 20 66 69 65 6c 64 20 70 |Style of| field p|
|00002c70| 72 65 73 73 41 6c 70 68 | 61 62 65 74 20 74 6f 20 |ressAlph|abet to |
|00002c80| 70 6c 61 69 6e 0d 65 6c | 73 65 20 69 66 20 63 68 |plain.el|se if ch|
|00002c90| 61 72 54 6f 4e 75 6d 20 | 6f 66 20 63 68 61 72 20 |arToNum |of char |
|00002ca0| 33 20 6f 66 20 66 69 65 | 6c 64 20 70 72 65 73 73 |3 of fie|ld press|
|00002cb0| 41 6c 70 68 61 62 65 74 | 20 3d 20 39 37 20 61 6e |Alphabet| = 97 an|
|00002cc0| 64 20 c2 0d 74 65 78 74 | 46 6f 6e 74 20 6f 66 20 |d ..text|Font of |
|00002cd0| 66 69 65 6c 64 20 61 6c | 70 68 61 62 65 74 20 3d |field al|phabet =|
|00002ce0| 20 22 4d 6f 6e 61 63 6f | 22 20 74 68 65 6e 0d 73 | "Monaco|" then.s|
|00002cf0| 65 74 20 74 65 78 74 53 | 74 79 6c 65 20 6f 66 20 |et textS|tyle of |
|00002d00| 66 69 65 6c 64 20 61 6c | 70 68 61 62 65 74 20 74 |field al|phabet t|
|00002d10| 6f 20 70 6c 61 69 6e 0d | 73 65 74 20 74 65 78 74 |o plain.|set text|
|00002d20| 53 74 79 6c 65 20 6f 66 | 20 66 69 65 6c 64 20 70 |Style of| field p|
|00002d30| 72 65 73 73 41 6c 70 68 | 61 62 65 74 20 74 6f 20 |ressAlph|abet to |
|00002d40| 70 6c 61 69 6e 0d 65 6e | 64 20 69 66 0d 65 6e 64 |plain.en|d if.end|
|00002d50| 20 74 6f 67 67 6c 65 44 | 69 66 66 69 63 75 6c 74 | toggleD|ifficult|
|00002d60| 50 75 7a 7a 6c 65 0d 0d | 6f 6e 20 69 6e 69 74 69 |Puzzle..|on initi|
|00002d70| 61 6c 69 7a 65 46 69 65 | 6c 64 73 0d 70 75 74 20 |alizeFie|lds.put |
|00002d80| 65 6d 70 74 79 20 69 6e | 74 6f 20 63 64 20 66 69 |empty in|to cd fi|
|00002d90| 65 6c 64 20 75 70 64 61 | 74 65 0d 73 68 6f 77 20 |eld upda|te.show |
|00002da0| 63 64 20 66 69 65 6c 64 | 20 75 70 64 61 74 65 0d |cd field| update.|
|00002db0| 6c 6f 63 6b 20 53 63 72 | 65 65 6e 0d 73 65 74 20 |lock Scr|een.set |
|00002dc0| 69 74 65 6d 44 65 6c 69 | 6d 69 74 65 72 20 74 6f |itemDeli|miter to|
|00002dd0| 20 22 2c 22 0d 70 75 74 | 20 22 72 65 63 6f 72 64 | ",".put| "record|
|00002de0| 2c 61 6c 70 68 61 62 65 | 74 2c 63 6c 75 65 2c 6d |,alphabe|t,clue,m|
|00002df0| 79 50 75 7a 7a 6c 65 2c | 63 72 79 70 74 6f 50 75 |yPuzzle,|cryptoPu|
|00002e00| 7a 7a 6c 65 2c 6c 65 74 | 74 65 72 31 2c 6c 65 74 |zzle,let|ter1,let|
|00002e10| 74 65 72 32 2c 70 75 7a | 7a 6c 65 2c 6b 65 79 22 |ter2,puz|zle,key"|
|00002e20| c2 0d 69 6e 74 6f 20 66 | 69 65 6c 64 4e 61 6d 65 |..into f|ieldName|
|00002e30| 73 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 78 20 |s.repeat| with x |
|00002e40| 3d 20 31 20 74 6f 20 74 | 68 65 20 6e 75 6d 62 65 |= 1 to t|he numbe|
|00002e50| 72 20 6f 66 20 69 74 65 | 6d 73 20 6f 66 20 66 69 |r of ite|ms of fi|
|00002e60| 65 6c 64 4e 61 6d 65 73 | 0d 70 75 74 20 65 6d 70 |eldNames|.put emp|
|00002e70| 74 79 20 69 6e 74 6f 20 | 66 69 65 6c 64 20 28 69 |ty into |field (i|
|00002e80| 74 65 6d 20 78 20 6f 66 | 20 66 69 65 6c 64 4e 61 |tem x of| fieldNa|
|00002e90| 6d 65 73 29 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |mes).end| repeat.|
|00002ea0| 69 66 20 66 69 65 6c 64 | 20 75 73 65 4d 65 55 70 |if field| useMeUp|
|00002eb0| 20 3d 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 72 65 | = empty| then.re|
|00002ec0| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 31 20 |peat wit|h i = 1 |
|00002ed0| 74 6f 20 28 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |to (the |number o|
|00002ee0| 66 20 6c 69 6e 65 73 20 | 6f 66 20 66 69 65 6c 64 |f lines |of field|
|00002ef0| 20 73 61 79 69 6e 67 73 | 29 0d 70 75 74 20 69 20 | sayings|).put i |
|00002f00| 26 20 72 65 74 75 72 6e | 20 61 66 74 65 72 20 66 |& return| after f|
|00002f10| 69 65 6c 64 20 75 73 65 | 4d 65 55 70 0d 65 6e 64 |ield use|MeUp.end|
|00002f20| 20 72 65 70 65 61 74 0d | 69 66 20 6c 61 73 74 20 | repeat.|if last |
|00002f30| 63 68 61 72 20 6f 66 20 | 66 69 65 6c 64 20 75 73 |char of |field us|
|00002f40| 65 4d 65 55 70 20 3d 20 | 72 65 74 75 72 6e 20 74 |eMeUp = |return t|
|00002f50| 68 65 6e 20 64 65 6c 65 | 74 65 20 6c 61 73 74 20 |hen dele|te last |
|00002f60| 63 68 61 72 20 6f 66 20 | 66 69 65 6c 64 20 55 73 |char of |field Us|
|00002f70| 65 4d 65 55 70 0d 65 6e | 64 20 69 66 0d 70 75 74 |eMeUp.en|d if.put|
|00002f80| 20 30 20 69 6e 74 6f 20 | 6c 69 6e 65 20 31 20 6f | 0 into |line 1 o|
|00002f90| 66 20 66 69 65 6c 64 20 | 72 65 63 6f 72 64 0d 75 |f field |record.u|
|00002fa0| 6e 6c 6f 63 6b 20 53 63 | 72 65 65 6e 20 77 69 74 |nlock Sc|reen wit|
|00002fb0| 68 20 64 69 73 73 6f 6c | 76 65 20 76 65 72 79 20 |h dissol|ve very |
|00002fc0| 66 61 73 74 0d 68 69 64 | 65 20 6d 73 67 0d 6d 73 |fast.hid|e msg.ms|
|00002fd0| 67 50 6c 61 63 65 6d 65 | 6e 74 0d 65 6e 64 20 69 |gPlaceme|nt.end i|
|00002fe0| 6e 69 74 69 61 6c 69 7a | 65 46 69 65 6c 64 73 0d |nitializ|eFields.|
|00002ff0| 0d 6f 6e 20 6d 73 67 50 | 6c 61 63 65 6d 65 6e 74 |.on msgP|lacement|
|00003000| 0d 69 66 20 74 68 65 20 | 73 63 72 65 65 6e 52 65 |.if the |screenRe|
|00003010| 63 74 20 3d 20 22 30 2c | 30 2c 35 31 32 2c 33 34 |ct = "0,|0,512,34|
|00003020| 32 22 20 74 68 65 6e 20 | 73 65 74 20 6c 6f 63 20 |2" then |set loc |
|00003030| 6f 66 20 6d 73 67 20 74 | 6f 20 32 31 2c 32 38 37 |of msg t|o 21,287|
|00003040| 0d 65 6c 73 65 0d 73 65 | 74 20 6c 6f 63 20 6f 66 |.else.se|t loc of|
|00003050| 20 6d 73 67 20 74 6f 20 | 32 30 2c 33 35 39 0d 65 | msg to |20,359.e|
|00003060| 6e 64 20 69 66 0d 65 6e | 64 20 6d 73 67 50 6c 61 |nd if.en|d msgPla|
|00003070| 63 65 6d 65 6e 74 0d 0d | 6f 6e 20 73 63 72 61 6d |cement..|on scram|
|00003080| 62 6c 65 53 61 79 69 6e | 67 73 0d 70 75 74 20 74 |bleSayin|gs.put t|
|00003090| 72 75 6e 63 28 74 68 65 | 20 6e 75 6d 62 65 72 20 |runc(the| number |
|000030a0| 6f 66 20 6c 69 6e 65 73 | 20 6f 66 20 66 69 65 6c |of lines| of fiel|
|000030b0| 64 20 73 61 79 69 6e 67 | 73 20 2a 20 2e 32 35 29 |d saying|s * .25)|
|000030c0| 20 69 6e 74 6f 20 63 6f | 75 6e 74 65 72 0d 70 75 | into co|unter.pu|
|000030d0| 74 20 66 69 65 6c 64 20 | 73 61 79 69 6e 67 73 20 |t field |sayings |
|000030e0| 69 6e 74 6f 20 73 61 79 | 69 6e 67 73 54 65 6d 70 |into say|ingsTemp|
|000030f0| 0d 72 65 70 65 61 74 20 | 63 6f 75 6e 74 65 72 20 |.repeat |counter |
|00003100| 74 69 6d 65 73 0d 72 65 | 70 65 61 74 0d 73 65 74 |times.re|peat.set|
|00003110| 20 63 75 72 73 6f 72 20 | 74 6f 20 62 75 73 79 0d | cursor |to busy.|
|00003120| 70 75 74 20 74 68 65 20 | 72 61 6e 64 6f 6d 20 6f |put the |random o|
|00003130| 66 20 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |f (the n|umber of|
|00003140| 20 6c 69 6e 65 73 20 6f | 66 20 73 61 79 69 6e 67 | lines o|f saying|
|00003150| 73 54 65 6d 70 29 20 69 | 6e 74 6f 20 6c 69 6e 65 |sTemp) i|nto line|
|00003160| 4e 6f 31 0d 70 75 74 20 | 74 68 65 20 72 61 6e 64 |No1.put |the rand|
|00003170| 6f 6d 20 6f 66 20 28 74 | 68 65 20 6e 75 6d 62 65 |om of (t|he numbe|
|00003180| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 73 61 |r of lin|es of sa|
|00003190| 79 69 6e 67 73 54 65 6d | 70 29 20 69 6e 74 6f 20 |yingsTem|p) into |
|000031a0| 6c 69 6e 65 4e 6f 32 0d | 70 75 74 20 74 68 65 20 |lineNo2.|put the |
|000031b0| 72 61 6e 64 6f 6d 20 6f | 66 20 28 74 68 65 20 6e |random o|f (the n|
|000031c0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|000031d0| 66 20 73 61 79 69 6e 67 | 73 54 65 6d 70 29 20 69 |f saying|sTemp) i|
|000031e0| 6e 74 6f 20 6c 69 6e 65 | 4e 6f 33 0d 69 66 20 6c |nto line|No3.if l|
|000031f0| 69 6e 65 4e 6f 31 20 3d | 20 6c 69 6e 65 4e 6f 32 |ineNo1 =| lineNo2|
|00003200| 20 6f 72 20 6c 69 6e 65 | 4e 6f 31 20 3d 20 6c 69 | or line|No1 = li|
|00003210| 6e 65 4e 6f 33 20 6f 72 | 20 6c 69 6e 65 4e 6f 32 |neNo3 or| lineNo2|
|00003220| 20 3d 20 6c 69 6e 65 4e | 6f 33 20 74 68 65 6e 0d | = lineN|o3 then.|
|00003230| 6e 65 78 74 20 72 65 70 | 65 61 74 0d 65 6c 73 65 |next rep|eat.else|
|00003240| 0d 65 78 69 74 20 72 65 | 70 65 61 74 0d 65 6e 64 |.exit re|peat.end|
|00003250| 20 69 66 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 73 | if.end |repeat.s|
|00003260| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus|
|00003270| 79 0d 70 75 74 20 6c 69 | 6e 65 20 6c 69 6e 65 4e |y.put li|ne lineN|
|00003280| 6f 31 20 6f 66 20 73 61 | 79 69 6e 67 73 54 65 6d |o1 of sa|yingsTem|
|00003290| 70 20 69 6e 74 6f 20 70 | 75 7a 7a 6c 65 31 0d 70 |p into p|uzzle1.p|
|000032a0| 75 74 20 6c 69 6e 65 20 | 6c 69 6e 65 4e 6f 32 20 |ut line |lineNo2 |
|000032b0| 6f 66 20 73 61 79 69 6e | 67 73 54 65 6d 70 20 69 |of sayin|gsTemp i|
|000032c0| 6e 74 6f 20 70 75 7a 7a | 6c 65 32 0d 70 75 74 20 |nto puzz|le2.put |
|000032d0| 6c 69 6e 65 20 6c 69 6e | 65 4e 6f 33 20 6f 66 20 |line lin|eNo3 of |
|000032e0| 73 61 79 69 6e 67 73 54 | 65 6d 70 20 69 6e 74 6f |sayingsT|emp into|
|000032f0| 20 70 75 7a 7a 6c 65 33 | 0d 73 65 74 20 63 75 72 | puzzle3|.set cur|
|00003300| 73 6f 72 20 74 6f 20 62 | 75 73 79 0d 70 75 74 20 |sor to b|usy.put |
|00003310| 70 75 7a 7a 6c 65 31 20 | 69 6e 74 6f 20 6c 69 6e |puzzle1 |into lin|
|00003320| 65 20 6c 69 6e 65 4e 6f | 32 20 6f 66 20 73 61 79 |e lineNo|2 of say|
|00003330| 69 6e 67 73 54 65 6d 70 | 0d 70 75 74 20 70 75 7a |ingsTemp|.put puz|
|00003340| 7a 6c 65 32 20 69 6e 74 | 6f 20 6c 69 6e 65 20 6c |zle2 int|o line l|
|00003350| 69 6e 65 4e 6f 33 20 6f | 66 20 73 61 79 69 6e 67 |ineNo3 o|f saying|
|00003360| 73 54 65 6d 70 0d 70 75 | 74 20 70 75 7a 7a 6c 65 |sTemp.pu|t puzzle|
|00003370| 33 20 69 6e 74 6f 20 6c | 69 6e 65 20 6c 69 6e 65 |3 into l|ine line|
|00003380| 4e 6f 31 20 6f 66 20 73 | 61 79 69 6e 67 73 54 65 |No1 of s|ayingsTe|
|00003390| 6d 70 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 0d 73 |mp.end r|epeat..s|
|000033a0| 65 74 20 74 68 65 20 6e | 75 6d 62 65 72 46 6f 72 |et the n|umberFor|
|000033b0| 6d 61 74 20 74 6f 20 22 | 30 30 30 22 0d 73 65 74 |mat to "|000".set|
|000033c0| 20 69 74 65 6d 44 65 6c | 69 6d 69 74 65 72 20 74 | itemDel|imiter t|
|000033d0| 6f 20 74 61 62 0d 72 65 | 70 65 61 74 20 77 69 74 |o tab.re|peat wit|
|000033e0| 68 20 78 20 3d 20 31 20 | 74 6f 20 74 68 65 20 6e |h x = 1 |to the n|
|000033f0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00003400| 66 20 73 61 79 69 6e 67 | 73 54 65 6d 70 0d 73 65 |f saying|sTemp.se|
|00003410| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 62 75 73 79 |t cursor| to busy|
|00003420| 0d 70 75 74 20 22 23 22 | 20 26 20 78 20 69 6e 74 |.put "#"| & x int|
|00003430| 6f 20 69 74 65 6d 20 31 | 20 6f 66 20 6c 69 6e 65 |o item 1| of line|
|00003440| 20 78 20 6f 66 20 73 61 | 79 69 6e 67 73 54 65 6d | x of sa|yingsTem|
|00003450| 70 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 73 65 74 |p.end re|peat.set|
|00003460| 20 63 75 72 73 6f 72 20 | 74 6f 20 6e 6f 6e 65 0d | cursor |to none.|
|00003470| 70 75 74 20 73 61 79 69 | 6e 67 73 54 65 6d 70 20 |put sayi|ngsTemp |
|00003480| 69 6e 74 6f 20 66 69 65 | 6c 64 20 73 61 79 69 6e |into fie|ld sayin|
|00003490| 67 73 0d 69 66 20 22 d2 | 22 20 69 73 20 69 6e 20 |gs.if ".|" is in |
|000034a0| 66 69 65 6c 64 20 73 61 | 79 69 6e 67 73 20 6f 72 |field sa|yings or|
|000034b0| 20 22 d3 22 20 69 73 20 | 69 6e 20 66 69 65 6c 64 | "." is |in field|
|000034c0| 20 73 61 79 69 6e 67 73 | 20 c2 0d 6f 72 20 22 d4 | sayings| ..or ".|
|000034d0| 22 20 69 73 20 69 6e 20 | 66 69 65 6c 64 20 73 61 |" is in |field sa|
|000034e0| 79 69 6e 67 73 20 6f 72 | 20 22 d5 22 20 69 73 20 |yings or| "." is |
|000034f0| 69 6e 20 66 69 65 6c 64 | 20 73 61 79 69 6e 67 73 |in field| sayings|
|00003500| 20 74 68 65 6e 20 6e 6f | 53 6d 61 72 74 51 75 6f | then no|SmartQuo|
|00003510| 74 65 73 0d 65 6e 64 20 | 73 63 72 61 6d 62 6c 65 |tes.end |scramble|
|00003520| 53 61 79 69 6e 67 73 0d | 0d 6f 6e 20 72 65 6e 75 |Sayings.|.on renu|
|00003530| 6d 62 65 72 53 61 79 69 | 6e 67 73 0d 69 66 20 22 |mberSayi|ngs.if "|
|00003540| d2 22 20 69 73 20 69 6e | 20 66 69 65 6c 64 20 73 |." is in| field s|
|00003550| 61 79 69 6e 67 73 20 6f | 72 20 22 d3 22 20 69 73 |ayings o|r "." is|
|00003560| 20 69 6e 20 66 69 65 6c | 64 20 73 61 79 69 6e 67 | in fiel|d saying|
|00003570| 73 20 c2 0d 6f 72 20 22 | d4 22 20 69 73 20 69 6e |s ..or "|." is in|
|00003580| 20 66 69 65 6c 64 20 73 | 61 79 69 6e 67 73 20 6f | field s|ayings o|
|00003590| 72 20 22 d5 22 20 69 73 | 20 69 6e 20 66 69 65 6c |r "." is| in fiel|
|000035a0| 64 20 73 61 79 69 6e 67 | 73 20 74 68 65 6e 20 6e |d saying|s then n|
|000035b0| 6f 53 6d 61 72 74 51 75 | 6f 74 65 73 0d 70 75 74 |oSmartQu|otes.put|
|000035c0| 20 66 69 65 6c 64 20 73 | 61 79 69 6e 67 73 20 69 | field s|ayings i|
|000035d0| 6e 74 6f 20 74 65 6d 70 | 31 0d 73 65 74 20 74 68 |nto temp|1.set th|
|000035e0| 65 20 6e 75 6d 62 65 72 | 46 6f 72 6d 61 74 20 74 |e number|Format t|
|000035f0| 6f 20 22 30 30 30 22 0d | 73 65 74 20 69 74 65 6d |o "000".|set item|
|00003600| 44 65 6c 69 6d 69 74 65 | 72 20 74 6f 20 74 61 62 |Delimite|r to tab|
|00003610| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 78 20 3d |.repeat |with x =|
|00003620| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number|
|00003630| 20 6f 66 20 6c 69 6e 65 | 73 20 6f 66 20 74 65 6d | of line|s of tem|
|00003640| 70 31 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |p1.set c|ursor to|
|00003650| 20 62 75 73 79 0d 70 75 | 74 20 78 20 69 6e 74 6f | busy.pu|t x into|
|00003660| 20 69 74 65 6d 20 31 20 | 6f 66 20 6c 69 6e 65 20 | item 1 |of line |
|00003670| 78 20 6f 66 20 74 65 6d | 70 31 0d 70 75 74 20 22 |x of tem|p1.put "|
|00003680| 23 22 20 26 20 78 20 69 | 6e 74 6f 20 69 74 65 6d |#" & x i|nto item|
|00003690| 20 31 20 6f 66 20 6c 69 | 6e 65 20 78 20 6f 66 20 | 1 of li|ne x of |
|000036a0| 74 65 6d 70 31 0d 65 6e | 64 20 72 65 70 65 61 74 |temp1.en|d repeat|
|000036b0| 0d 70 75 74 20 74 65 6d | 70 31 20 69 6e 74 6f 20 |.put tem|p1 into |
|000036c0| 66 69 65 6c 64 20 73 61 | 79 69 6e 67 73 0d 65 6e |field sa|yings.en|
|000036d0| 64 20 72 65 6e 75 6d 62 | 65 72 53 61 79 69 6e 67 |d renumb|erSaying|
|000036e0| 73 0d 0d 6f 6e 20 6e 6f | 53 6d 61 72 74 51 75 6f |s..on no|SmartQuo|
|000036f0| 74 65 73 0d 70 75 74 20 | 6e 75 6d 54 6f 43 68 61 |tes.put |numToCha|
|00003700| 72 20 6f 66 20 32 31 30 | 20 69 6e 74 6f 20 62 65 |r of 210| into be|
|00003710| 67 44 6f 75 62 6c 65 53 | 6d 61 72 74 51 75 6f 74 |gDoubleS|martQuot|
|00003720| 65 0d 70 75 74 20 6e 75 | 6d 54 6f 43 68 61 72 20 |e.put nu|mToChar |
|00003730| 6f 66 20 32 31 31 20 69 | 6e 74 6f 20 65 6e 64 44 |of 211 i|nto endD|
|00003740| 6f 75 62 6c 65 53 6d 61 | 72 74 51 75 6f 74 65 0d |oubleSma|rtQuote.|
|00003750| 70 75 74 20 6e 75 6d 54 | 6f 43 68 61 72 20 6f 66 |put numT|oChar of|
|00003760| 20 32 31 32 20 69 6e 74 | 6f 20 62 65 67 53 69 6e | 212 int|o begSin|
|00003770| 67 6c 65 53 6d 61 72 74 | 51 75 6f 74 65 0d 70 75 |gleSmart|Quote.pu|
|00003780| 74 20 6e 75 6d 54 6f 43 | 68 61 72 20 6f 66 20 32 |t numToC|har of 2|
|00003790| 31 33 20 69 6e 74 6f 20 | 65 6e 64 53 69 6e 67 6c |13 into |endSingl|
|000037a0| 65 53 6d 61 72 74 51 75 | 6f 74 65 0d 70 75 74 20 |eSmartQu|ote.put |
|000037b0| 6e 75 6d 54 6f 43 68 61 | 72 20 6f 66 20 33 34 20 |numToCha|r of 34 |
|000037c0| 69 6e 74 6f 20 64 6f 75 | 62 6c 65 51 75 6f 74 65 |into dou|bleQuote|
|000037d0| 0d 70 75 74 20 6e 75 6d | 54 6f 43 68 61 72 20 6f |.put num|ToChar o|
|000037e0| 66 20 33 39 20 69 6e 74 | 6f 20 53 69 6e 67 6c 65 |f 39 int|o Single|
|000037f0| 51 75 6f 74 65 0d 72 65 | 70 65 61 74 20 75 6e 74 |Quote.re|peat unt|
|00003800| 69 6c 20 62 65 67 44 6f | 75 62 6c 65 53 6d 61 72 |il begDo|ubleSmar|
|00003810| 74 51 75 6f 74 65 20 69 | 73 20 6e 6f 74 20 69 6e |tQuote i|s not in|
|00003820| 20 66 69 65 6c 64 20 73 | 61 79 69 6e 67 73 0d 73 | field s|ayings.s|
|00003830| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus|
|00003840| 79 0d 70 75 74 20 6f 66 | 66 73 65 74 28 62 65 67 |y.put of|fset(beg|
|00003850| 44 6f 75 62 6c 65 53 6d | 61 72 74 51 75 6f 74 65 |DoubleSm|artQuote|
|00003860| 2c 66 69 65 6c 64 20 73 | 61 79 69 6e 67 73 29 20 |,field s|ayings) |
|00003870| 69 6e 74 6f 20 74 65 6d | 70 31 0d 70 75 74 20 64 |into tem|p1.put d|
|00003880| 6f 75 62 6c 65 51 75 6f | 74 65 20 69 6e 74 6f 20 |oubleQuo|te into |
|00003890| 63 68 61 72 20 74 65 6d | 70 31 20 6f 66 20 66 69 |char tem|p1 of fi|
|000038a0| 65 6c 64 20 73 61 79 69 | 6e 67 73 0d 65 6e 64 20 |eld sayi|ngs.end |
|000038b0| 72 65 70 65 61 74 0d 72 | 65 70 65 61 74 20 75 6e |repeat.r|epeat un|
|000038c0| 74 69 6c 20 65 6e 64 44 | 6f 75 62 6c 65 53 6d 61 |til endD|oubleSma|
|000038d0| 72 74 51 75 6f 74 65 20 | 69 73 20 6e 6f 74 20 69 |rtQuote |is not i|
|000038e0| 6e 20 66 69 65 6c 64 20 | 73 61 79 69 6e 67 73 0d |n field |sayings.|
|000038f0| 73 65 74 20 63 75 72 73 | 6f 72 20 74 6f 20 62 75 |set curs|or to bu|
|00003900| 73 79 0d 70 75 74 20 6f | 66 66 73 65 74 28 65 6e |sy.put o|ffset(en|
|00003910| 64 44 6f 75 62 6c 65 53 | 6d 61 72 74 51 75 6f 74 |dDoubleS|martQuot|
|00003920| 65 2c 66 69 65 6c 64 20 | 73 61 79 69 6e 67 73 29 |e,field |sayings)|
|00003930| 20 69 6e 74 6f 20 74 65 | 6d 70 32 0d 70 75 74 20 | into te|mp2.put |
|00003940| 64 6f 75 62 6c 65 51 75 | 6f 74 65 20 69 6e 74 6f |doubleQu|ote into|
|00003950| 20 63 68 61 72 20 74 65 | 6d 70 32 20 6f 66 20 66 | char te|mp2 of f|
|00003960| 69 65 6c 64 20 73 61 79 | 69 6e 67 73 0d 65 6e 64 |ield say|ings.end|
|00003970| 20 72 65 70 65 61 74 0d | 72 65 70 65 61 74 20 75 | repeat.|repeat u|
|00003980| 6e 74 69 6c 20 62 65 67 | 53 69 6e 67 6c 65 53 6d |ntil beg|SingleSm|
|00003990| 61 72 74 51 75 6f 74 65 | 20 69 73 20 6e 6f 74 20 |artQuote| is not |
|000039a0| 69 6e 20 66 69 65 6c 64 | 20 73 61 79 69 6e 67 73 |in field| sayings|
|000039b0| 0d 73 65 74 20 63 75 72 | 73 6f 72 20 74 6f 20 62 |.set cur|sor to b|
|000039c0| 75 73 79 0d 70 75 74 20 | 6f 66 66 73 65 74 28 62 |usy.put |offset(b|
|000039d0| 65 67 53 69 6e 67 6c 65 | 53 6d 61 72 74 51 75 6f |egSingle|SmartQuo|
|000039e0| 74 65 2c 66 69 65 6c 64 | 20 73 61 79 69 6e 67 73 |te,field| sayings|
|000039f0| 29 20 69 6e 74 6f 20 74 | 65 6d 70 33 0d 70 75 74 |) into t|emp3.put|
|00003a00| 20 53 69 6e 67 6c 65 51 | 75 6f 74 65 20 69 6e 74 | SingleQ|uote int|
|00003a10| 6f 20 63 68 61 72 20 74 | 65 6d 70 33 20 6f 66 20 |o char t|emp3 of |
|00003a20| 66 69 65 6c 64 20 73 61 | 79 69 6e 67 73 0d 65 6e |field sa|yings.en|
|00003a30| 64 20 72 65 70 65 61 74 | 0d 72 65 70 65 61 74 20 |d repeat|.repeat |
|00003a40| 75 6e 74 69 6c 20 65 6e | 64 53 69 6e 67 6c 65 53 |until en|dSingleS|
|00003a50| 6d 61 72 74 51 75 6f 74 | 65 20 69 73 20 6e 6f 74 |martQuot|e is not|
|00003a60| 20 69 6e 20 66 69 65 6c | 64 20 73 61 79 69 6e 67 | in fiel|d saying|
|00003a70| 73 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |s.set cu|rsor to |
|00003a80| 62 75 73 79 0d 70 75 74 | 20 6f 66 66 73 65 74 28 |busy.put| offset(|
|00003a90| 65 6e 64 53 69 6e 67 6c | 65 53 6d 61 72 74 51 75 |endSingl|eSmartQu|
|00003aa0| 6f 74 65 2c 66 69 65 6c | 64 20 73 61 79 69 6e 67 |ote,fiel|d saying|
|00003ab0| 73 29 20 69 6e 74 6f 20 | 74 65 6d 70 34 0d 70 75 |s) into |temp4.pu|
|00003ac0| 74 20 53 69 6e 67 6c 65 | 51 75 6f 74 65 20 69 6e |t Single|Quote in|
|00003ad0| 74 6f 20 63 68 61 72 20 | 74 65 6d 70 34 20 6f 66 |to char |temp4 of|
|00003ae0| 20 66 69 65 6c 64 20 73 | 61 79 69 6e 67 73 0d 65 | field s|ayings.e|
|00003af0| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 6e 6f |nd repea|t.end no|
|00003b00| 53 6d 61 72 74 51 75 6f | 74 65 73 0d 0d 6f 6e 20 |SmartQuo|tes..on |
|00003b10| 74 72 61 70 46 6f 72 54 | 68 69 73 0d 61 6e 73 77 |trapForT|his.answ|
|00003b20| 65 72 20 22 59 61 20 6b | 6e 6f 77 2c 20 49 20 6b |er "Ya k|now, I k|
|00003b30| 6e 65 77 20 73 6f 6d 65 | 6f 6e 65 20 77 6f 75 6c |new some|one woul|
|00003b40| 64 20 74 72 79 20 74 6f | 20 64 6f 20 77 68 61 74 |d try to| do what|
|00003b50| 20 79 6f 75 20 6a 75 73 | 74 20 64 69 64 2e 22 c2 | you jus|t did.".|
|00003b60| 0d 26 26 20 22 41 73 20 | 79 6f 75 20 63 61 6e 20 |.&& "As |you can |
|00003b70| 73 65 65 2c 20 69 74 20 | 64 6f 65 73 20 6e 6f 74 |see, it |does not|
|00003b80| 68 69 6e 67 2c 20 73 6f | 20 64 6f 6e d5 74 20 64 |hing, so| don.t d|
|00003b90| 6f 20 69 74 20 61 67 61 | 69 6e 21 22 20 c2 0d 77 |o it aga|in!" ..w|
|00003ba0| 69 74 68 20 22 4f 6b 61 | 79 2c 20 6f 6b 61 79 21 |ith "Oka|y, okay!|
|00003bb0| 22 0d 65 6e 64 20 74 72 | 61 70 46 6f 72 54 68 69 |".end tr|apForThi|
|00003bc0| 73 0d 0d 6f 6e 20 6b 65 | 79 44 6f 77 6e 20 77 68 |s..on ke|yDown wh|
|00003bd0| 69 63 68 4b 65 79 0d 69 | 66 20 74 68 65 20 63 68 |ichKey.i|f the ch|
|00003be0| 65 63 6b 6d 61 72 6b 20 | 6f 66 20 6d 65 6e 75 69 |eckmark |of menui|
|00003bf0| 74 65 6d 20 22 4b 65 79 | 62 6f 61 72 64 20 45 6e |tem "Key|board En|
|00003c00| 74 72 79 22 20 6f 66 20 | c2 0d 6d 65 6e 75 20 22 |try" of |..menu "|
|00003c10| 43 72 79 70 74 6f 67 72 | 61 6d 22 20 3d 20 66 61 |Cryptogr|am" = fa|
|00003c20| 6c 73 65 20 54 48 45 4e | 20 2d 2d 20 6f 72 20 74 |lse THEN| -- or t|
|00003c30| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 6d 73 |he visib|le of ms|
|00003c40| 67 20 3d 20 74 72 75 65 | 20 74 68 65 6e 0d 70 61 |g = true| then.pa|
|00003c50| 73 73 20 6b 65 79 44 6f | 77 6e 0d 65 78 69 74 20 |ss keyDo|wn.exit |
|00003c60| 4b 65 79 44 6f 77 6e 0d | 45 4c 53 45 0d 48 49 44 |KeyDown.|ELSE.HID|
|00003c70| 45 20 4d 53 47 0d 65 6e | 64 20 69 66 0d 73 65 74 |E MSG.en|d if.set|
|00003c80| 20 62 6c 69 6e 64 54 79 | 70 69 6e 67 20 74 6f 20 | blindTy|ping to |
|00003c90| 74 72 75 65 0d 67 6c 6f | 62 61 6c 20 6c 65 74 74 |true.glo|bal lett|
|00003ca0| 65 72 43 61 72 72 69 65 | 72 20 2d 2d 20 6b 65 79 |erCarrie|r -- key|
|00003cb0| 4e 75 6d 62 65 72 0d 70 | 75 74 20 63 68 61 72 54 |Number.p|ut charT|
|00003cc0| 6f 4e 75 6d 28 77 68 69 | 63 68 4b 65 79 29 20 69 |oNum(whi|chKey) i|
|00003cd0| 6e 74 6f 20 6b 65 79 4e | 75 6d 62 65 72 0d 70 75 |nto keyN|umber.pu|
|00003ce0| 74 20 6e 75 6d 54 6f 43 | 68 61 72 20 6f 66 20 28 |t numToC|har of (|
|00003cf0| 63 68 61 72 54 6f 4e 75 | 6d 28 77 68 69 63 68 4b |charToNu|m(whichK|
|00003d00| 65 79 29 29 20 69 6e 74 | 6f 20 6c 65 74 74 65 72 |ey)) int|o letter|
|00003d10| 43 61 72 72 69 65 72 0d | 69 66 20 6c 65 74 74 65 |Carrier.|if lette|
|00003d20| 72 43 61 72 72 69 65 72 | 20 69 73 20 69 6e 20 66 |rCarrier| is in f|
|00003d30| 69 65 6c 64 20 70 72 65 | 73 73 41 6c 70 68 61 62 |ield pre|ssAlphab|
|00003d40| 65 74 20 61 6e 64 20 6c | 65 74 74 65 72 43 61 72 |et and l|etterCar|
|00003d50| 72 69 65 72 20 ad 20 73 | 70 61 63 65 20 74 68 65 |rier . s|pace the|
|00003d60| 6e 0d 70 75 74 20 6f 66 | 66 73 65 74 28 6c 65 74 |n.put of|fset(let|
|00003d70| 74 65 72 43 61 72 72 69 | 65 72 2c 66 69 65 6c 64 |terCarri|er,field|
|00003d80| 20 70 72 65 73 73 41 6c | 70 68 61 62 65 74 29 20 | pressAl|phabet) |
|00003d90| 69 6e 74 6f 20 6c 65 74 | 74 65 72 43 61 72 72 69 |into let|terCarri|
|00003da0| 65 72 0d 73 65 6e 64 20 | 6d 6f 75 73 65 44 6f 77 |er.send |mouseDow|
|00003db0| 6e 20 74 6f 20 66 69 65 | 6c 64 20 70 72 65 73 73 |n to fie|ld press|
|00003dc0| 41 6c 70 68 61 62 65 74 | 0d 65 6e 64 20 69 66 0d |Alphabet|.end if.|
|00003dd0| 69 66 20 6b 65 79 4e 75 | 6d 62 65 72 20 3d 20 31 |if keyNu|mber = 1|
|00003de0| 33 20 74 68 65 6e 0d 67 | 65 74 20 74 68 65 20 6c |3 then.g|et the l|
|00003df0| 6f 63 20 6f 66 20 62 6b | 67 6e 64 20 62 74 6e 20 |oc of bk|gnd btn |
|00003e00| 22 53 75 62 73 74 69 74 | 75 74 65 22 0d 63 6c 69 |"Substit|ute".cli|
|00003e10| 63 6b 20 61 74 20 69 74 | 0d 65 6e 64 20 69 66 0d |ck at it|.end if.|
|00003e20| 70 61 73 73 20 6b 65 79 | 44 6f 77 6e 0d 65 6e 64 |pass key|Down.end|
|00003e30| 20 6b 65 79 44 6f 77 6e | 00 00 00 00 00 00 00 00 | keyDown|........|
|00003e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e80| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00003e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ea0| 00 04 4b d4 00 02 00 0e | 00 08 7f 51 00 02 04 0e |..K.....|...Q....|
|00003eb0| 00 02 44 ba 00 08 85 61 | 00 04 6b 6b 00 08 88 39 |..D....a|..kk...9|
|00003ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004080| 00 00 00 80 4c 49 53 54 | 00 00 09 0e 00 00 00 00 |....LIST|........|
|00004090| 00 00 00 01 00 00 08 00 | 00 00 00 01 00 84 00 02 |........|........|
|000040a0| 00 20 00 03 c0 00 01 62 | 00 00 00 01 00 00 00 00 |. .....b|........|
|000040b0| 00 00 0b 0e 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004100| 00 00 08 00 50 41 47 45 | 00 00 0b 0e 00 00 00 00 |....PAGE|........|
|00004110| 00 00 09 0e 60 00 01 cd | 00 00 0e 6b e0 7f ff ff |....`...|...k....|
|00004120| ff ff ff ff ff fb ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004130| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004140| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004150| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004160| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004170| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004180| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004190| ff ff ff ff ff ff ff ff | ff ff ff fc 00 00 00 00 |........|........|
|000041a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004900| 00 00 40 e0 42 4b 47 44 | 00 00 0c ba 00 00 00 00 |..@.BKGD|........|
|00004910| 00 00 08 d4 40 00 00 00 | 00 00 00 01 00 00 0c ba |....@...|........|
|00004920| 00 00 0c ba 00 11 00 69 | 00 00 2f 64 00 00 00 00 |.......i|../d....|
|00004930| 00 00 00 2a 00 0c 02 01 | 00 4d 00 14 00 e0 01 ee |...*....|.M......|
|00004940| 20 00 00 00 00 00 00 01 | 00 04 00 0c 40 00 00 24 | .......|....@..$|
|00004950| 6d 79 50 75 7a 7a 6c 65 | 00 00 00 00 00 28 00 06 |myPuzzle|.....(..|
|00004960| 02 80 00 01 00 f2 00 32 | 01 72 60 02 00 00 00 00 |.......2|.r`.....|
|00004970| 00 00 00 03 00 0a 00 00 | 00 0a 70 75 7a 7a 6c 65 |........|..puzzle|
|00004980| 00 00 00 00 10 26 00 0b | 01 00 01 25 00 fa 01 3c |.....&..|...%...<|
|00004990| 01 55 90 04 00 00 00 00 | 00 01 00 00 00 0c 20 00 |.U......|...... .|
|000049a0| 00 10 53 75 62 73 74 69 | 74 75 74 65 00 00 6f 6e |..Substi|tute..on|
|000049b0| 20 6d 6f 75 73 65 44 6f | 77 6e 0d 73 65 74 20 74 | mouseDo|wn.set t|
|000049c0| 68 65 20 68 69 6c 69 74 | 65 20 6f 66 20 74 68 65 |he hilit|e of the|
|000049d0| 20 74 61 72 67 65 74 20 | 74 6f 20 74 72 75 65 0d | target |to true.|
|000049e0| 69 66 20 66 69 65 6c 64 | 20 6d 79 50 75 7a 7a 6c |if field| myPuzzl|
|000049f0| 65 20 3d 20 65 6d 70 74 | 79 20 61 6e 64 20 66 69 |e = empt|y and fi|
|00004a00| 65 6c 64 20 63 72 79 70 | 74 6f 50 75 7a 7a 6c 65 |eld cryp|toPuzzle|
|00004a10| 20 3d 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 74 72 | = empty| then.tr|
|00004a20| 61 70 46 6f 72 54 68 69 | 73 0d 73 65 74 20 74 68 |apForThi|s.set th|
|00004a30| 65 20 68 69 6c 69 74 65 | 20 6f 66 20 74 68 65 20 |e hilite| of the |
|00004a40| 74 61 72 67 65 74 20 74 | 6f 20 66 61 6c 73 65 0d |target t|o false.|
|00004a50| 65 78 69 74 20 74 6f 20 | 48 79 70 65 72 43 61 72 |exit to |HyperCar|
|00004a60| 64 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 6d 6f 75 |d.end if|.end mou|
|00004a70| 73 65 44 6f 77 6e 0d 0d | 6f 6e 20 6d 6f 75 73 65 |seDown..|on mouse|
|00004a80| 55 70 20 2d 2d 20 34 2f | 39 2f 39 33 0d 2d 2d 20 |Up -- 4/|9/93.-- |
|00004a90| 73 65 74 20 74 68 65 20 | 72 65 63 74 20 6f 66 20 |set the |rect of |
|00004aa0| 66 69 65 6c 64 20 6c 65 | 74 74 65 72 31 20 74 6f |field le|tter1 to|
|00004ab0| 20 31 32 30 2c 32 39 33 | 2c 31 34 35 2c 33 31 37 | 120,293|,145,317|
|00004ac0| 0d 2d 2d 20 73 65 74 20 | 74 68 65 20 72 65 63 74 |.-- set |the rect|
|00004ad0| 20 6f 66 20 66 69 65 6c | 64 20 6c 65 74 74 65 72 | of fiel|d letter|
|00004ae0| 31 20 74 6f 20 32 31 36 | 2c 32 39 33 2c 32 34 31 |1 to 216|,293,241|
|00004af0| 2c 33 31 37 0d 69 66 20 | 66 69 65 6c 64 20 6c 65 |,317.if |field le|
|00004b00| 74 74 65 72 31 20 ad 20 | 65 6d 70 74 79 20 61 6e |tter1 . |empty an|
|00004b10| 64 20 66 69 65 6c 64 20 | 6c 65 74 74 65 72 31 20 |d field |letter1 |
|00004b20| 69 73 20 6e 6f 74 20 69 | 6e 20 66 69 65 6c 64 20 |is not i|n field |
|00004b30| 63 72 79 70 74 6f 50 75 | 7a 7a 6c 65 20 74 68 65 |cryptoPu|zzle the|
|00004b40| 6e 0d 61 6e 73 77 65 72 | 20 22 54 68 65 20 6c 65 |n.answer| "The le|
|00004b50| 74 74 65 72 20 27 22 20 | 26 20 66 69 65 6c 64 20 |tter '" |& field |
|00004b60| 6c 65 74 74 65 72 31 20 | 26 20 22 27 20 69 73 20 |letter1 |& "' is |
|00004b70| 6e 6f 74 20 69 6e 20 74 | 68 65 20 65 6e 63 72 79 |not in t|he encry|
|00004b80| 70 74 65 64 20 70 75 7a | 7a 6c 65 2e 22 c2 0d 26 |pted puz|zle."..&|
|00004b90| 26 20 22 50 6c 65 61 73 | 65 20 73 65 6c 65 63 74 |& "Pleas|e select|
|00004ba0| 20 61 6e 6f 74 68 65 72 | 20 6c 65 74 74 65 72 2e | another| letter.|
|00004bb0| 22 0d 6c 6f 63 6b 20 53 | 63 72 65 65 6e 0d 73 65 |".lock S|creen.se|
|00004bc0| 74 20 74 68 65 20 68 69 | 6c 69 74 65 20 6f 66 20 |t the hi|lite of |
|00004bd0| 74 68 65 20 74 61 72 67 | 65 74 20 74 6f 20 66 61 |the targ|et to fa|
|00004be0| 6c 73 65 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |lse.put |empty in|
|00004bf0| 74 6f 20 66 69 65 6c 64 | 20 22 6c 65 74 74 65 72 |to field| "letter|
|00004c00| 31 22 0d 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 |1".put e|mpty int|
|00004c10| 6f 20 66 69 65 6c 64 20 | 22 6c 65 74 74 65 72 32 |o field |"letter2|
|00004c20| 22 0d 65 78 69 74 20 6d | 6f 75 73 65 55 70 0d 65 |".exit m|ouseUp.e|
|00004c30| 6e 64 20 69 66 0d 0d 69 | 66 20 74 68 65 20 6f 70 |nd if..i|f the op|
|00004c40| 74 69 6f 6e 4b 65 79 20 | 69 73 20 64 6f 77 6e 20 |tionKey |is down |
|00004c50| 74 68 65 6e 0d 73 65 74 | 20 74 68 65 20 68 69 6c |then.set| the hil|
|00004c60| 69 74 65 20 6f 66 20 74 | 68 65 20 74 61 72 67 65 |ite of t|he targe|
|00004c70| 74 20 74 6f 20 74 72 75 | 65 0d 69 66 20 22 a5 22 |t to tru|e.if "."|
|00004c80| 20 69 73 20 6e 6f 74 20 | 69 6e 20 66 69 65 6c 64 | is not |in field|
|00004c90| 20 6d 79 50 75 7a 7a 6c | 65 20 74 68 65 6e 0d 73 | myPuzzl|e then.s|
|00004ca0| 65 74 20 74 68 65 20 68 | 69 6c 69 74 65 20 6f 66 |et the h|ilite of|
|00004cb0| 20 74 68 65 20 74 61 72 | 67 65 74 20 74 6f 20 66 | the tar|get to f|
|00004cc0| 61 6c 73 65 0d 65 78 69 | 74 20 6d 6f 75 73 65 55 |alse.exi|t mouseU|
|00004cd0| 70 0d 65 6e 64 20 69 66 | 0d 69 66 20 6c 69 6e 65 |p.end if|.if line|
|00004ce0| 20 32 20 6f 66 20 66 69 | 65 6c 64 20 72 65 63 6f | 2 of fi|eld reco|
|00004cf0| 72 64 20 3d 20 22 73 6f | 6c 75 74 69 6f 6e 20 67 |rd = "so|lution g|
|00004d00| 69 76 65 6e 22 20 74 68 | 65 6e 0d 61 6e 73 77 65 |iven" th|en.answe|
|00004d10| 72 20 22 54 68 65 20 73 | 6f 6c 75 74 69 6f 6e 20 |r "The s|olution |
|00004d20| 74 6f 20 74 68 69 73 20 | 63 72 79 70 74 6f 67 72 |to this |cryptogr|
|00004d30| 61 6d 20 68 61 73 20 62 | 65 65 6e 20 67 69 76 65 |am has b|een give|
|00004d40| 6e 2e 22 20 c2 0d 26 26 | 20 22 43 61 6e 6e 6f 74 |n." ..&&| "Cannot|
|00004d50| 20 67 69 76 65 20 79 6f | 75 20 61 6e 79 20 66 72 | give yo|u any fr|
|00004d60| 65 65 20 6c 65 74 74 65 | 72 20 73 75 62 73 74 69 |ee lette|r substi|
|00004d70| 74 75 74 69 6f 6e 73 2e | 22 0d 73 65 74 20 74 68 |tutions.|".set th|
|00004d80| 65 20 68 69 6c 69 74 65 | 20 6f 66 20 74 68 65 20 |e hilite| of the |
|00004d90| 74 61 72 67 65 74 20 74 | 6f 20 66 61 6c 73 65 0d |target t|o false.|
|00004da0| 65 78 69 74 20 6d 6f 75 | 73 65 55 70 0d 65 6e 64 |exit mou|seUp.end|
|00004db0| 20 69 66 0d 0d 69 66 20 | 6c 69 6e 65 20 31 20 6f | if..if |line 1 o|
|00004dc0| 66 20 66 69 65 6c 64 20 | 72 65 63 6f 72 64 20 3c |f field |record <|
|00004dd0| 3d 20 30 20 74 68 65 6e | 0d 61 6e 73 77 65 72 20 |= 0 then|.answer |
|00004de0| 22 53 6f 72 72 79 2c 20 | 63 61 6e d5 74 20 67 69 |"Sorry, |can.t gi|
|00004df0| 76 65 20 79 6f 75 20 61 | 6e 79 20 6d 6f 72 65 20 |ve you a|ny more |
|00004e00| 66 72 65 65 20 6c 65 74 | 74 65 72 20 73 75 62 73 |free let|ter subs|
|00004e10| 74 69 74 75 74 69 6f 6e | 73 2e 22 0d 73 65 74 20 |titution|s.".set |
|00004e20| 74 68 65 20 68 69 6c 69 | 74 65 20 6f 66 20 74 68 |the hili|te of th|
|00004e30| 65 20 74 61 72 67 65 74 | 20 74 6f 20 66 61 6c 73 |e target| to fals|
|00004e40| 65 0d 65 78 69 74 20 6d | 6f 75 73 65 55 70 0d 65 |e.exit m|ouseUp.e|
|00004e50| 6e 64 20 69 66 0d 73 75 | 62 74 72 61 63 74 20 31 |nd if.su|btract 1|
|00004e60| 20 66 72 6f 6d 20 6c 69 | 6e 65 20 31 20 6f 66 20 | from li|ne 1 of |
|00004e70| 66 69 65 6c 64 20 72 65 | 63 6f 72 64 0d 70 75 74 |field re|cord.put|
|00004e80| 20 74 68 65 20 72 61 6e | 64 6f 6d 20 6f 66 20 28 | the ran|dom of (|
|00004e90| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|00004ea0| 6e 65 73 20 6f 66 20 66 | 69 65 6c 64 20 6b 65 79 |nes of f|ield key|
|00004eb0| 29 20 69 6e 74 6f 20 72 | 61 6e 64 54 65 6d 70 0d |) into r|andTemp.|
|00004ec0| 69 66 20 74 68 65 20 63 | 68 65 63 6b 4d 61 72 6b |if the c|heckMark|
|00004ed0| 20 6f 66 20 6d 65 6e 75 | 49 74 65 6d 20 22 44 69 | of menu|Item "Di|
|00004ee0| 66 66 69 63 75 6c 74 20 | 50 75 7a 7a 6c 65 22 20 |fficult |Puzzle" |
|00004ef0| 6f 66 20 6d 65 6e 75 20 | 22 43 72 79 70 74 6f 67 |of menu |"Cryptog|
|00004f00| 72 61 6d 22 20 3d 20 74 | 72 75 65 20 74 68 65 6e |ram" = t|rue then|
|00004f10| 0d 70 75 74 20 65 64 69 | 74 53 74 72 69 6e 67 28 |.put edi|tString(|
|00004f20| 22 75 63 61 73 65 22 2c | 6c 61 73 74 20 63 68 61 |"ucase",|last cha|
|00004f30| 72 20 6f 66 20 6c 69 6e | 65 20 72 61 6e 64 54 65 |r of lin|e randTe|
|00004f40| 6d 70 20 6f 66 20 66 69 | 65 6c 64 20 6b 65 79 29 |mp of fi|eld key)|
|00004f50| 20 69 6e 74 6f 20 66 69 | 65 6c 64 20 22 6c 65 74 | into fi|eld "let|
|00004f60| 74 65 72 31 22 0d 70 75 | 74 20 65 64 69 74 53 74 |ter1".pu|t editSt|
|00004f70| 72 69 6e 67 28 22 75 63 | 61 73 65 22 2c 63 68 61 |ring("uc|ase",cha|
|00004f80| 72 20 31 20 6f 66 20 6c | 69 6e 65 20 72 61 6e 64 |r 1 of l|ine rand|
|00004f90| 54 65 6d 70 20 6f 66 20 | 66 69 65 6c 64 20 6b 65 |Temp of |field ke|
|00004fa0| 79 29 20 69 6e 74 6f 20 | 66 69 65 6c 64 20 22 6c |y) into |field "l|
|00004fb0| 65 74 74 65 72 32 22 0d | 65 6c 73 65 0d 70 75 74 |etter2".|else.put|
|00004fc0| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 6c 69 | last ch|ar of li|
|00004fd0| 6e 65 20 72 61 6e 64 54 | 65 6d 70 20 6f 66 20 66 |ne randT|emp of f|
|00004fe0| 69 65 6c 64 20 6b 65 79 | 20 69 6e 74 6f 20 66 69 |ield key| into fi|
|00004ff0| 65 6c 64 20 22 6c 65 74 | 74 65 72 31 22 0d 70 75 |eld "let|ter1".pu|
|00005000| 74 20 63 68 61 72 20 31 | 20 6f 66 20 6c 69 6e 65 |t char 1| of line|
|00005010| 20 72 61 6e 64 54 65 6d | 70 20 6f 66 20 66 69 65 | randTem|p of fie|
|00005020| 6c 64 20 6b 65 79 20 69 | 6e 74 6f 20 66 69 65 6c |ld key i|nto fiel|
|00005030| 64 20 22 6c 65 74 74 65 | 72 32 22 0d 65 6e 64 20 |d "lette|r2".end |
|00005040| 69 66 0d 64 65 6c 65 74 | 65 20 6c 69 6e 65 20 72 |if.delet|e line r|
|00005050| 61 6e 64 54 65 6d 70 20 | 6f 66 20 66 69 65 6c 64 |andTemp |of field|
|00005060| 20 6b 65 79 0d 65 6e 64 | 20 69 66 0d 0d 69 66 20 | key.end| if..if |
|00005070| 22 a5 22 20 69 73 20 6e | 6f 74 20 69 6e 20 66 69 |"." is n|ot in fi|
|00005080| 65 6c 64 20 6d 79 50 75 | 7a 7a 6c 65 20 61 6e 64 |eld myPu|zzle and|
|00005090| 20 c2 0d 6c 69 6e 65 20 | 33 20 74 6f 20 28 74 68 | ..line |3 to (th|
|000050a0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|000050b0| 73 20 6f 66 20 66 69 65 | 6c 64 20 72 65 63 6f 72 |s of fie|ld recor|
|000050c0| 64 29 20 6f 66 20 66 69 | 65 6c 64 20 72 65 63 6f |d) of fi|eld reco|
|000050d0| 72 64 20 3d 20 66 69 65 | 6c 64 20 6d 79 50 75 7a |rd = fie|ld myPuz|
|000050e0| 7a 6c 65 20 74 68 65 6e | 0d 61 6e 73 77 65 72 20 |zle then|.answer |
|000050f0| 22 54 68 65 20 70 75 7a | 7a 6c 65 20 68 61 73 20 |"The puz|zle has |
|00005100| 62 65 65 6e 20 73 6f 6c | 76 65 64 21 22 0d 73 65 |been sol|ved!".se|
|00005110| 74 20 74 68 65 20 68 69 | 6c 69 74 65 20 6f 66 20 |t the hi|lite of |
|00005120| 74 68 65 20 74 61 72 67 | 65 74 20 74 6f 20 66 61 |the targ|et to fa|
|00005130| 6c 73 65 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |lse.put |empty in|
|00005140| 74 6f 20 66 69 65 6c 64 | 20 6c 65 74 74 65 72 31 |to field| letter1|
|00005150| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|00005160| 66 69 65 6c 64 20 6c 65 | 74 74 65 72 32 0d 65 78 |field le|tter2.ex|
|00005170| 69 74 20 6d 6f 75 73 65 | 55 70 0d 65 6e 64 20 69 |it mouse|Up.end i|
|00005180| 66 0d 69 66 20 66 69 65 | 6c 64 20 22 6c 65 74 74 |f.if fie|ld "lett|
|00005190| 65 72 31 22 20 3d 20 65 | 6d 70 74 79 20 6f 72 20 |er1" = e|mpty or |
|000051a0| 66 69 65 6c 64 20 22 6c | 65 74 74 65 72 32 22 20 |field "l|etter2" |
|000051b0| 3d 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 61 6e 73 |= empty |then.ans|
|000051c0| 77 65 72 20 22 45 6e 74 | 72 79 20 69 73 20 69 6e |wer "Ent|ry is in|
|000051d0| 63 6f 6d 70 6c 65 74 65 | c9 22 0d 73 65 74 20 74 |complete|.".set t|
|000051e0| 68 65 20 68 69 6c 69 74 | 65 20 6f 66 20 74 68 65 |he hilit|e of the|
|000051f0| 20 74 61 72 67 65 74 20 | 74 6f 20 66 61 6c 73 65 | target |to false|
|00005200| 0d 65 78 69 74 20 6d 6f | 75 73 65 55 70 0d 65 6e |.exit mo|useUp.en|
|00005210| 64 20 69 66 0d 0d 72 65 | 70 6c 61 63 65 49 6e 41 |d if..re|placeInA|
|00005220| 6c 70 68 61 62 65 74 0d | 0d 69 66 20 66 69 65 6c |lphabet.|.if fiel|
|00005230| 64 20 22 61 6c 70 68 61 | 62 65 74 22 20 63 6f 6e |d "alpha|bet" con|
|00005240| 74 61 69 6e 73 20 66 69 | 65 6c 64 20 22 6c 65 74 |tains fi|eld "let|
|00005250| 74 65 72 32 22 20 74 68 | 65 6e 0d 70 75 74 20 6f |ter2" th|en.put o|
|00005260| 66 66 73 65 74 20 28 66 | 69 65 6c 64 20 6c 65 74 |ffset (f|ield let|
|00005270| 74 65 72 32 2c 20 66 69 | 65 6c 64 20 22 61 6c 70 |ter2, fi|eld "alp|
|00005280| 68 61 62 65 74 22 29 20 | 69 6e 74 6f 20 74 68 65 |habet") |into the|
|00005290| 50 6f 73 69 74 69 6f 6e | 0d 70 75 74 20 22 a5 22 |Position|.put "."|
|000052a0| 20 69 6e 74 6f 20 63 68 | 61 72 20 74 68 65 50 6f | into ch|ar thePo|
|000052b0| 73 69 74 69 6f 6e 20 6f | 66 20 66 69 65 6c 64 20 |sition o|f field |
|000052c0| 22 61 6c 70 68 61 62 65 | 74 22 0d 65 6e 64 20 69 |"alphabe|t".end i|
|000052d0| 66 0d 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |f..set c|ursor to|
|000052e0| 20 34 0d 0d 69 66 20 66 | 69 65 6c 64 20 22 6c 65 | 4..if f|ield "le|
|000052f0| 74 74 65 72 32 22 20 69 | 73 20 69 6e 20 66 69 65 |tter2" i|s in fie|
|00005300| 6c 64 20 6d 79 50 75 7a | 7a 6c 65 20 74 68 65 6e |ld myPuz|zle then|
|00005310| 0d 72 65 70 65 61 74 20 | 75 6e 74 69 6c 20 66 69 |.repeat |until fi|
|00005320| 65 6c 64 20 22 6c 65 74 | 74 65 72 32 22 20 69 73 |eld "let|ter2" is|
|00005330| 20 6e 6f 74 20 69 6e 20 | 66 69 65 6c 64 20 6d 79 | not in |field my|
|00005340| 50 75 7a 7a 6c 65 0d 70 | 75 74 20 6f 66 66 73 65 |Puzzle.p|ut offse|
|00005350| 74 20 28 66 69 65 6c 64 | 20 22 6c 65 74 74 65 72 |t (field| "letter|
|00005360| 32 22 2c 20 66 69 65 6c | 64 20 6d 79 50 75 7a 7a |2", fiel|d myPuzz|
|00005370| 6c 65 29 20 69 6e 74 6f | 20 64 65 6c 65 74 65 50 |le) into| deleteP|
|00005380| 6f 73 69 74 69 6f 6e 0d | 70 75 74 20 22 a5 22 20 |osition.|put "." |
|00005390| 69 6e 74 6f 20 63 68 61 | 72 20 64 65 6c 65 74 65 |into cha|r delete|
|000053a0| 50 6f 73 69 74 69 6f 6e | 20 6f 66 20 66 69 65 6c |Position| of fiel|
|000053b0| 64 20 6d 79 50 75 7a 7a | 6c 65 0d 65 6e 64 20 72 |d myPuzz|le.end r|
|000053c0| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 0d 70 75 |epeat.en|d if..pu|
|000053d0| 74 20 66 69 65 6c 64 20 | 63 72 79 70 74 6f 50 75 |t field |cryptoPu|
|000053e0| 7a 7a 6c 65 20 69 6e 74 | 6f 20 63 72 79 70 74 6f |zzle int|o crypto|
|000053f0| 50 75 7a 7a 6c 65 54 65 | 6d 70 0d 2d 2d 20 6c 6f |PuzzleTe|mp.-- lo|
|00005400| 63 6b 20 73 63 72 65 65 | 6e 0d 69 66 20 74 68 65 |ck scree|n.if the|
|00005410| 20 63 68 65 63 6b 4d 61 | 72 6b 20 6f 66 20 6d 65 | checkMa|rk of me|
|00005420| 6e 75 49 74 65 6d 20 22 | 44 69 66 66 69 63 75 6c |nuItem "|Difficul|
|00005430| 74 20 50 75 7a 7a 6c 65 | 22 20 6f 66 20 6d 65 6e |t Puzzle|" of men|
|00005440| 75 20 22 43 72 79 70 74 | 6f 67 72 61 6d 22 20 c2 |u "Crypt|ogram" .|
|00005450| 0d 3d 20 74 72 75 65 20 | 74 68 65 6e 0d 70 75 74 |.= true |then.put|
|00005460| 20 66 69 65 6c 64 20 22 | 6c 65 74 74 65 72 32 22 | field "|letter2"|
|00005470| 20 69 6e 74 6f 20 75 63 | 54 65 6d 70 0d 72 65 70 | into uc|Temp.rep|
|00005480| 65 61 74 20 75 6e 74 69 | 6c 20 66 69 65 6c 64 20 |eat unti|l field |
|00005490| 22 6c 65 74 74 65 72 31 | 22 20 69 73 20 6e 6f 74 |"letter1|" is not|
|000054a0| 20 69 6e 20 63 72 79 70 | 74 6f 50 75 7a 7a 6c 65 | in cryp|toPuzzle|
|000054b0| 54 65 6d 70 0d 70 75 74 | 20 6f 66 66 73 65 74 20 |Temp.put| offset |
|000054c0| 28 66 69 65 6c 64 20 22 | 6c 65 74 74 65 72 31 22 |(field "|letter1"|
|000054d0| 2c 20 63 72 79 70 74 6f | 50 75 7a 7a 6c 65 54 65 |, crypto|PuzzleTe|
|000054e0| 6d 70 29 20 69 6e 74 6f | 20 6c 65 74 74 65 72 50 |mp) into| letterP|
|000054f0| 6f 73 69 74 69 6f 6e 0d | 70 75 74 20 75 63 54 65 |osition.|put ucTe|
|00005500| 6d 70 20 69 6e 74 6f 20 | 63 68 61 72 20 6c 65 74 |mp into |char let|
|00005510| 74 65 72 50 6f 73 69 74 | 69 6f 6e 20 6f 66 20 66 |terPosit|ion of f|
|00005520| 69 65 6c 64 20 6d 79 50 | 75 7a 7a 6c 65 0d 70 75 |ield myP|uzzle.pu|
|00005530| 74 20 22 a5 22 20 69 6e | 74 6f 20 63 68 61 72 20 |t "." in|to char |
|00005540| 6c 65 74 74 65 72 50 6f | 73 69 74 69 6f 6e 20 6f |letterPo|sition o|
|00005550| 66 20 63 72 79 70 74 6f | 50 75 7a 7a 6c 65 54 65 |f crypto|PuzzleTe|
|00005560| 6d 70 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6c |mp.end r|epeat.el|
|00005570| 73 65 0d 70 75 74 20 65 | 64 69 74 53 74 72 69 6e |se.put e|ditStrin|
|00005580| 67 28 22 75 63 61 73 65 | 22 2c 66 69 65 6c 64 20 |g("ucase|",field |
|00005590| 22 6c 65 74 74 65 72 32 | 22 29 20 69 6e 74 6f 20 |"letter2|") into |
|000055a0| 75 63 54 65 6d 70 0d 2d | 2d 20 70 75 74 20 6e 75 |ucTemp.-|- put nu|
|000055b0| 6d 54 6f 43 68 61 72 20 | 6f 66 20 28 63 68 61 72 |mToChar |of (char|
|000055c0| 54 6f 4e 75 6d 20 6f 66 | 20 66 69 65 6c 64 20 22 |ToNum of| field "|
|000055d0| 6c 65 74 74 65 72 32 22 | 20 2d 20 33 32 29 20 69 |letter2"| - 32) i|
|000055e0| 6e 74 6f 20 75 63 54 65 | 6d 70 0d 70 75 74 20 6e |nto ucTe|mp.put n|
|000055f0| 75 6d 54 6f 43 68 61 72 | 20 6f 66 20 28 63 68 61 |umToChar| of (cha|
|00005600| 72 54 6f 4e 75 6d 20 6f | 66 20 66 69 65 6c 64 20 |rToNum o|f field |
|00005610| 22 6c 65 74 74 65 72 32 | 22 29 20 69 6e 74 6f 20 |"letter2|") into |
|00005620| 6c 63 54 65 6d 70 0d 72 | 65 70 65 61 74 20 75 6e |lcTemp.r|epeat un|
|00005630| 74 69 6c 20 66 69 65 6c | 64 20 22 6c 65 74 74 65 |til fiel|d "lette|
|00005640| 72 31 22 20 69 73 20 6e | 6f 74 20 69 6e 20 63 72 |r1" is n|ot in cr|
|00005650| 79 70 74 6f 50 75 7a 7a | 6c 65 54 65 6d 70 0d 70 |yptoPuzz|leTemp.p|
|00005660| 75 74 20 6f 66 66 73 65 | 74 20 28 66 69 65 6c 64 |ut offse|t (field|
|00005670| 20 22 6c 65 74 74 65 72 | 31 22 2c 20 63 72 79 70 | "letter|1", cryp|
|00005680| 74 6f 50 75 7a 7a 6c 65 | 54 65 6d 70 29 20 69 6e |toPuzzle|Temp) in|
|00005690| 74 6f 20 6c 65 74 74 65 | 72 50 6f 73 69 74 69 6f |to lette|rPositio|
|000056a0| 6e 0d 69 66 20 63 68 61 | 72 54 6f 4e 75 6d 20 6f |n.if cha|rToNum o|
|000056b0| 66 20 63 68 61 72 20 6c | 65 74 74 65 72 50 6f 73 |f char l|etterPos|
|000056c0| 69 74 69 6f 6e 20 6f 66 | 20 63 72 79 70 74 6f 50 |ition of| cryptoP|
|000056d0| 75 7a 7a 6c 65 54 65 6d | 70 20 c2 0d 3e 3d 20 36 |uzzleTem|p ..>= 6|
|000056e0| 35 20 61 6e 64 20 63 68 | 61 72 54 6f 4e 75 6d 20 |5 and ch|arToNum |
|000056f0| 6f 66 20 63 68 61 72 20 | 6c 65 74 74 65 72 50 6f |of char |letterPo|
|00005700| 73 69 74 69 6f 6e 20 6f | 66 20 63 72 79 70 74 6f |sition o|f crypto|
|00005710| 50 75 7a 7a 6c 65 54 65 | 6d 70 c2 0d 3c 3d 20 39 |PuzzleTe|mp..<= 9|
|00005720| 30 20 74 68 65 6e 0d 70 | 75 74 20 75 63 54 65 6d |0 then.p|ut ucTem|
|00005730| 70 20 69 6e 74 6f 20 63 | 68 61 72 20 6c 65 74 74 |p into c|har lett|
|00005740| 65 72 50 6f 73 69 74 69 | 6f 6e 20 6f 66 20 66 69 |erPositi|on of fi|
|00005750| 65 6c 64 20 6d 79 50 75 | 7a 7a 6c 65 0d 65 6c 73 |eld myPu|zzle.els|
|00005760| 65 0d 70 75 74 20 6c 63 | 54 65 6d 70 20 69 6e 74 |e.put lc|Temp int|
|00005770| 6f 20 63 68 61 72 20 6c | 65 74 74 65 72 50 6f 73 |o char l|etterPos|
|00005780| 69 74 69 6f 6e 20 6f 66 | 20 66 69 65 6c 64 20 6d |ition of| field m|
|00005790| 79 50 75 7a 7a 6c 65 0d | 65 6e 64 20 69 66 0d 70 |yPuzzle.|end if.p|
|000057a0| 75 74 20 22 a5 22 20 69 | 6e 74 6f 20 63 68 61 72 |ut "." i|nto char|
|000057b0| 20 6c 65 74 74 65 72 50 | 6f 73 69 74 69 6f 6e 20 | letterP|osition |
|000057c0| 6f 66 20 63 72 79 70 74 | 6f 50 75 7a 7a 6c 65 54 |of crypt|oPuzzleT|
|000057d0| 65 6d 70 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |emp.end |repeat.e|
|000057e0| 6e 64 20 69 66 0d 0d 69 | 66 20 66 69 65 6c 64 20 |nd if..i|f field |
|000057f0| 6b 65 79 20 63 6f 6e 74 | 61 69 6e 73 20 66 69 65 |key cont|ains fie|
|00005800| 6c 64 20 22 6c 65 74 74 | 65 72 32 22 20 26 26 20 |ld "lett|er2" && |
|00005810| 22 3d 22 20 26 26 20 66 | 69 65 6c 64 20 22 6c 65 |"=" && f|ield "le|
|00005820| 74 74 65 72 31 22 20 74 | 68 65 6e 0d 66 69 6e 64 |tter1" t|hen.find|
|00005830| 20 77 68 6f 6c 65 20 28 | 66 69 65 6c 64 20 6c 65 | whole (|field le|
|00005840| 74 74 65 72 32 20 26 26 | 20 22 3d 22 20 26 26 20 |tter2 &&| "=" && |
|00005850| 66 69 65 6c 64 20 6c 65 | 74 74 65 72 31 29 20 69 |field le|tter1) i|
|00005860| 6e 20 66 69 65 6c 64 20 | 6b 65 79 0d 64 65 6c 65 |n field |key.dele|
|00005870| 74 65 20 74 68 65 20 66 | 6f 75 6e 64 4c 69 6e 65 |te the f|oundLine|
|00005880| 0d 65 6e 64 20 69 66 0d | 0d 67 6c 6f 62 61 6c 20 |.end if.|.global |
|00005890| 74 68 65 50 75 7a 7a 6c | 65 53 6f 6c 76 65 64 2c |thePuzzl|eSolved,|
|000058a0| 6e 65 78 74 5f 66 69 65 | 6c 64 5f 6e 61 6d 65 0d |next_fie|ld_name.|
|000058b0| 70 75 74 20 22 6c 65 74 | 74 65 72 31 22 20 69 6e |put "let|ter1" in|
|000058c0| 74 6f 20 6e 65 78 74 5f | 66 69 65 6c 64 5f 6e 61 |to next_|field_na|
|000058d0| 6d 65 0d 69 66 20 22 a5 | 22 20 69 73 20 6e 6f 74 |me.if ".|" is not|
|000058e0| 20 69 6e 20 66 69 65 6c | 64 20 6d 79 50 75 7a 7a | in fiel|d myPuzz|
|000058f0| 6c 65 20 61 6e 64 20 c2 | 0d 74 68 65 50 75 7a 7a |le and .|.thePuzz|
|00005900| 6c 65 53 6f 6c 76 65 64 | 20 3d 20 66 69 65 6c 64 |leSolved| = field|
|00005910| 20 6d 79 50 75 7a 7a 6c | 65 20 74 68 65 6e 0d 76 | myPuzzl|e then.v|
|00005920| 69 63 74 6f 72 79 0d 65 | 6e 64 20 69 66 0d 6c 6f |ictory.e|nd if.lo|
|00005930| 63 6b 20 53 63 72 65 65 | 6e 0d 73 65 74 20 74 68 |ck Scree|n.set th|
|00005940| 65 20 68 69 6c 69 74 65 | 20 6f 66 20 74 68 65 20 |e hilite| of the |
|00005950| 74 61 72 67 65 74 20 74 | 6f 20 66 61 6c 73 65 0d |target t|o false.|
|00005960| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 66 |put empt|y into f|
|00005970| 69 65 6c 64 20 22 6c 65 | 74 74 65 72 31 22 0d 70 |ield "le|tter1".p|
|00005980| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 66 69 |ut empty| into fi|
|00005990| 65 6c 64 20 22 6c 65 74 | 74 65 72 32 22 0d 65 6e |eld "let|ter2".en|
|000059a0| 64 20 6d 6f 75 73 65 55 | 70 00 00 2e 00 07 02 01 |d mouseU|p.......|
|000059b0| 00 5c 00 15 00 ee 01 ed | 20 00 00 00 00 00 00 01 |.\......| .......|
|000059c0| 00 04 00 0c 40 00 00 24 | 63 72 79 70 74 6f 70 75 |....@..$|cryptopu|
|000059d0| 7a 7a 6c 65 00 00 00 00 | 00 26 00 12 02 01 00 47 |zzle....|.&.....G|
|000059e0| 00 18 00 59 01 eb 00 00 | 00 00 00 00 00 01 00 00 |...Y....|........|
|000059f0| 00 0c 20 00 00 10 63 6c | 75 65 00 00 00 00 01 30 |.. ...cl|ue.....0|
|00005a00| 00 14 01 80 01 22 00 13 | 01 45 00 2d 20 00 00 00 |....."..|.E.- ...|
|00005a10| 43 70 00 01 00 00 00 0c | 00 00 00 10 41 62 6f 75 |Cp......|....Abou|
|00005a20| 74 00 00 6f 6e 20 6d 6f | 75 73 65 55 70 0d 6c 6f |t..on mo|useUp.lo|
|00005a30| 63 6b 20 73 63 72 65 65 | 6e 0d 48 69 64 65 20 62 |ck scree|n.Hide b|
|00005a40| 6b 67 6e 64 20 62 74 6e | 20 22 41 62 6f 75 74 22 |kgnd btn| "About"|
|00005a50| 0d 68 69 64 65 20 63 61 | 72 64 20 62 74 6e 20 22 |.hide ca|rd btn "|
|00005a60| 51 75 69 74 22 0d 68 69 | 64 65 20 62 6b 67 6e 64 |Quit".hi|de bkgnd|
|00005a70| 20 66 69 65 6c 64 20 70 | 72 65 73 73 41 6c 70 68 | field p|ressAlph|
|00005a80| 61 62 65 74 0d 73 65 74 | 20 74 68 65 20 72 65 63 |abet.set| the rec|
|00005a90| 74 20 6f 66 20 66 69 65 | 6c 64 20 69 6e 73 74 72 |t of fie|ld instr|
|00005aa0| 75 63 74 69 6f 6e 73 20 | 74 6f 20 20 38 2c 37 2c |uctions |to  8,7,|
|00005ab0| 35 30 36 2c 33 33 35 0d | 73 65 74 20 74 68 65 20 |506,335.|set the |
|00005ac0| 73 63 72 6f 6c 6c 20 6f | 66 20 66 69 65 6c 64 20 |scroll o|f field |
|00005ad0| 69 6e 73 74 72 75 63 74 | 69 6f 6e 73 20 74 6f 20 |instruct|ions to |
|00005ae0| 30 0d 73 68 6f 77 20 66 | 69 65 6c 64 20 69 6e 73 |0.show f|ield ins|
|00005af0| 74 72 75 63 74 69 6f 6e | 73 0d 75 6e 6c 6f 63 6b |truction|s.unlock|
|00005b00| 20 53 63 72 65 65 6e 20 | 77 69 74 68 20 64 69 73 | Screen |with dis|
|00005b10| 73 6f 6c 76 65 20 76 65 | 72 79 20 66 61 73 74 0d |solve ve|ry fast.|
|00005b20| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 00 00 00 22 |end mous|eUp...."|
|00005b30| 00 66 02 05 01 27 00 3c | 01 3b 00 db 00 00 00 00 |.f...'.<|.;......|
|00005b40| 00 00 00 00 00 00 00 0c | 20 00 00 0c 00 00 00 00 |........| .......|
|00005b50| 00 7e 00 09 02 05 01 25 | 00 d8 01 3d 00 f1 00 00 |.~.....%|...=....|
|00005b60| 00 00 00 00 00 01 00 04 | 00 0e 00 00 00 12 6c 65 |........|......le|
|00005b70| 74 74 65 72 32 00 00 6f | 6e 20 63 6c 6f 73 65 46 |tter2..o|n closeF|
|00005b80| 69 65 6c 64 0d 67 6c 6f | 62 61 6c 20 6e 65 78 74 |ield.glo|bal next|
|00005b90| 5f 66 69 65 6c 64 5f 6e | 61 6d 65 0d 70 75 74 20 |_field_n|ame.put |
|00005ba0| 22 6c 65 74 74 65 72 31 | 22 20 69 6e 74 6f 20 6e |"letter1|" into n|
|00005bb0| 65 78 74 5f 66 69 65 6c | 64 5f 6e 61 6d 65 0d 65 |ext_fiel|d_name.e|
|00005bc0| 6e 64 20 63 6c 6f 73 65 | 46 69 65 6c 64 00 00 80 |nd close|Field...|
|00005bd0| 00 08 02 05 01 25 00 78 | 01 3d 00 91 00 00 00 00 |.....%.x|.=......|
|00005be0| 00 00 00 01 00 04 00 0e | 00 00 00 12 6c 65 74 74 |........|....lett|
|00005bf0| 65 72 31 00 00 6f 6e 20 | 63 6c 6f 73 65 46 69 65 |er1..on |closeFie|
|00005c00| 6c 64 0d 67 6c 6f 62 61 | 6c 20 6e 65 78 74 5f 66 |ld.globa|l next_f|
|00005c10| 69 65 6c 64 5f 6e 61 6d | 65 0d 70 75 74 20 22 6c |ield_nam|e.put "l|
|00005c20| 65 74 74 65 72 32 22 20 | 69 6e 74 6f 20 6e 65 78 |etter2" |into nex|
|00005c30| 74 5f 66 69 65 6c 64 5f | 6e 61 6d 65 0d 65 6e 64 |t_field_|name.end|
|00005c40| 20 63 6c 6f 73 65 46 69 | 65 6c 64 0d 00 00 00 28 | closeFi|eld....(|
|00005c50| 00 1b 02 80 00 01 01 74 | 00 32 01 fd 00 07 00 00 |.......t|.2......|
|00005c60| 00 00 00 00 00 04 00 09 | 00 00 00 09 72 65 63 6f |........|....reco|
|00005c70| 72 64 00 00 00 00 00 2a | 00 1c 02 05 00 32 00 18 |rd.....*|.....2..|
|00005c80| 00 48 01 eb 00 00 00 00 | 00 00 00 01 00 04 00 0e |.H......|........|
|00005c90| 00 00 00 12 61 6c 70 68 | 61 62 65 74 00 00 00 00 |....alph|abet....|
|00005ca0| 00 28 00 11 02 80 00 01 | 00 03 00 32 00 ee 00 07 |.(......|...2....|
|00005cb0| 00 00 00 00 00 00 00 03 | 00 0a 00 00 00 0a 73 61 |........|......sa|
|00005cc0| 79 69 6e 67 73 00 00 00 | 00 24 00 01 02 84 00 34 |yings...|.$.....4|
|00005cd0| 00 03 01 28 00 3b 00 07 | 00 00 00 00 00 01 00 0f |...(.;..|........|
|00005ce0| 00 0a 00 00 00 0a 6b 65 | 79 00 00 00 04 3e 00 64 |......ke|y....>.d|
|00005cf0| 02 85 01 0a 00 15 01 1f | 01 ef 00 00 00 00 00 00 |........|........|
|00005d00| 00 01 00 04 00 0e 00 00 | 00 12 70 72 65 73 73 41 |........|..pressA|
|00005d10| 6c 70 68 61 62 65 74 00 | 00 6f 6e 20 6d 6f 75 73 |lphabet.|.on mous|
|00005d20| 65 44 6f 77 6e 0d 69 66 | 20 74 68 65 20 63 68 65 |eDown.if| the che|
|00005d30| 63 6b 6d 61 72 6b 20 6f | 66 20 6d 65 6e 75 49 74 |ckmark o|f menuIt|
|00005d40| 65 6d 20 22 4b 65 79 62 | 6f 61 72 64 20 45 6e 74 |em "Keyb|oard Ent|
|00005d50| 72 79 22 20 6f 66 20 6d | 65 6e 75 20 22 43 72 79 |ry" of m|enu "Cry|
|00005d60| 70 74 6f 67 72 61 6d 22 | 20 3d 20 74 72 75 65 20 |ptogram"| = true |
|00005d70| 74 68 65 6e 0d 69 66 20 | 74 68 65 20 63 6c 69 63 |then.if |the clic|
|00005d80| 6b 4c 6f 63 20 69 73 20 | 77 69 74 68 69 6e 20 74 |kLoc is |within t|
|00005d90| 68 65 20 72 65 63 74 20 | 6f 66 20 6d 65 20 74 68 |he rect |of me th|
|00005da0| 65 6e 0d 70 6c 61 79 20 | 66 6c 75 74 65 0d 61 6e |en.play |flute.an|
|00005db0| 73 77 65 72 20 22 54 6f | 20 75 73 65 20 74 68 65 |swer "To| use the|
|00005dc0| 20 6d 6f 75 73 65 20 74 | 6f 20 63 68 6f 6f 73 65 | mouse t|o choose|
|00005dd0| 20 6c 65 74 74 65 72 73 | 2c 20 75 6e 63 68 65 63 | letters|, unchec|
|00005de0| 6b 20 27 4b 65 79 62 6f | 61 72 64 20 45 6e 74 72 |k 'Keybo|ard Entr|
|00005df0| 79 27 20 69 6e 20 74 68 | 65 20 27 43 72 79 70 74 |y' in th|e 'Crypt|
|00005e00| 6f 67 72 61 6d 27 20 6d | 65 6e 75 2e 22 0d 65 78 |ogram' m|enu.".ex|
|00005e10| 69 74 20 6d 6f 75 73 65 | 44 6f 77 6e 0d 65 6e 64 |it mouse|Down.end|
|00005e20| 20 69 66 0d 67 6c 6f 62 | 61 6c 20 6c 65 74 74 65 | if.glob|al lette|
|00005e30| 72 43 61 72 72 69 65 72 | 0d 70 75 74 20 6c 65 74 |rCarrier|.put let|
|00005e40| 74 65 72 43 61 72 72 69 | 65 72 20 69 6e 74 6f 20 |terCarri|er into |
|00005e50| 74 68 65 4c 65 74 74 65 | 72 0d 67 6c 6f 62 61 6c |theLette|r.global|
|00005e60| 20 6e 65 78 74 5f 66 69 | 65 6c 64 5f 6e 61 6d 65 | next_fi|eld_name|
|00005e70| 0d 70 75 74 20 63 68 61 | 72 20 74 68 65 4c 65 74 |.put cha|r theLet|
|00005e80| 74 65 72 20 6f 66 20 66 | 69 65 6c 64 20 70 72 65 |ter of f|ield pre|
|00005e90| 73 73 41 6c 70 68 61 62 | 65 74 20 69 6e 74 6f 20 |ssAlphab|et into |
|00005ea0| 66 69 65 6c 64 20 6e 65 | 78 74 5f 66 69 65 6c 64 |field ne|xt_field|
|00005eb0| 5f 6e 61 6d 65 0d 73 65 | 6e 64 20 63 6c 6f 73 65 |_name.se|nd close|
|00005ec0| 46 69 65 6c 64 20 74 6f | 20 66 69 65 6c 64 20 6e |Field to| field n|
|00005ed0| 65 78 74 5f 46 69 65 6c | 64 5f 6e 61 6d 65 0d 65 |ext_Fiel|d_name.e|
|00005ee0| 6e 64 20 69 66 0d 69 66 | 20 74 68 65 20 63 68 65 |nd if.if| the che|
|00005ef0| 63 6b 6d 61 72 6b 20 6f | 66 20 6d 65 6e 75 49 74 |ckmark o|f menuIt|
|00005f00| 65 6d 20 22 4b 65 79 62 | 6f 61 72 64 20 45 6e 74 |em "Keyb|oard Ent|
|00005f10| 72 79 22 20 6f 66 20 6d | 65 6e 75 20 22 43 72 79 |ry" of m|enu "Cry|
|00005f20| 70 74 6f 67 72 61 6d 22 | 20 3d 20 66 61 6c 73 65 |ptogram"| = false|
|00005f30| 20 74 68 65 6e 0d 2d 2d | 20 64 69 73 61 62 6c 65 | then.--| disable|
|00005f40| 4b 65 79 44 6f 77 6e 48 | 61 6e 64 6c 65 72 0d 70 |KeyDownH|andler.p|
|00005f50| 75 74 20 77 6f 72 64 20 | 32 20 6f 66 20 74 68 65 |ut word |2 of the|
|00005f60| 20 63 6c 69 63 6b 43 68 | 75 6e 6b 20 69 6e 74 6f | clickCh|unk into|
|00005f70| 20 74 68 65 4c 65 74 74 | 65 72 0d 69 66 20 74 68 | theLett|er.if th|
|00005f80| 65 20 76 61 6c 75 65 20 | 6f 66 20 74 68 65 20 63 |e value |of the c|
|00005f90| 6c 69 63 6b 43 68 75 6e | 6b 20 69 73 20 69 6e 20 |lickChun|k is in |
|00005fa0| 22 61 62 63 64 65 66 67 | 68 69 6a 6b 6c 6d 6e 6f |"abcdefg|hijklmno|
|00005fb0| 70 71 72 73 74 75 76 77 | 78 79 7a 22 20 74 68 65 |pqrstuvw|xyz" the|
|00005fc0| 6e 0d 73 65 6c 65 63 74 | 20 63 68 61 72 20 28 74 |n.select| char (t|
|00005fd0| 68 65 4c 65 74 74 65 72 | 20 2d 20 31 29 20 74 6f |heLetter| - 1) to|
|00005fe0| 20 28 74 68 65 4c 65 74 | 74 65 72 20 2b 20 31 29 | (theLet|ter + 1)|
|00005ff0| 20 6f 66 20 74 68 65 20 | 74 61 72 67 65 74 0d 67 | of the |target.g|
|00006000| 6c 6f 62 61 6c 20 6e 65 | 78 74 5f 66 69 65 6c 64 |lobal ne|xt_field|
|00006010| 5f 6e 61 6d 65 0d 70 75 | 74 20 74 68 65 20 76 61 |_name.pu|t the va|
|00006020| 6c 75 65 20 6f 66 20 74 | 68 65 20 63 6c 69 63 6b |lue of t|he click|
|00006030| 43 68 75 6e 6b 20 69 6e | 74 6f 20 66 69 65 6c 64 |Chunk in|to field|
|00006040| 20 6e 65 78 74 5f 66 69 | 65 6c 64 5f 6e 61 6d 65 | next_fi|eld_name|
|00006050| 0d 73 65 6e 64 20 63 6c | 6f 73 65 46 69 65 6c 64 |.send cl|oseField|
|00006060| 20 74 6f 20 66 69 65 6c | 64 20 6e 65 78 74 5f 46 | to fiel|d next_F|
|00006070| 69 65 6c 64 5f 6e 61 6d | 65 0d 65 6c 73 65 0d 69 |ield_nam|e.else.i|
|00006080| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 6d 65 6e |f there |is a men|
|00006090| 75 20 22 43 72 79 70 74 | 6f 67 72 61 6d 22 20 74 |u "Crypt|ogram" t|
|000060a0| 68 65 6e 0d 69 66 20 74 | 68 65 20 63 68 65 63 6b |hen.if t|he check|
|000060b0| 4d 61 72 6b 20 6f 66 20 | 6d 65 6e 75 49 74 65 6d |Mark of |menuItem|
|000060c0| 20 22 53 6f 75 6e 64 22 | 20 6f 66 20 6d 65 6e 75 | "Sound"| of menu|
|000060d0| 20 22 43 72 79 70 74 6f | 67 72 61 6d 22 20 3d 20 | "Crypto|gram" = |
|000060e0| 74 72 75 65 20 74 68 65 | 6e 0d 70 6c 61 79 20 66 |true the|n.play f|
|000060f0| 6c 75 74 65 0d 65 6c 73 | 65 0d 66 6c 61 73 68 0d |lute.els|e.flash.|
|00006100| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 65 6e |end if.e|nd if.en|
|00006110| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |d if.end| if.end |
|00006120| 6d 6f 75 73 65 44 6f 77 | 6e 00 16 6a 00 68 01 00 |mouseDow|n..j.h..|
|00006130| 01 25 01 66 01 3c 01 c0 | a0 04 00 00 00 00 00 01 |.%.f.<..|........|
|00006140| 00 00 00 0c 20 00 00 10 | 4e 65 77 20 50 75 7a 7a |.... ...|New Puzz|
|00006150| 6c 65 00 00 6f 6e 20 6d | 6f 75 73 65 55 50 20 2d |le..on m|ouseUP -|
|00006160| 2d 20 4e 45 57 20 50 52 | 4f 43 45 44 55 52 45 20 |- NEW PR|OCEDURE |
|00006170| 54 4f 20 53 43 52 41 4d | 42 4c 45 20 4c 45 54 54 |TO SCRAM|BLE LETT|
|00006180| 45 52 53 20 37 2f 31 31 | 2f 39 32 0d 69 66 20 74 |ERS 7/11|/92.if t|
|00006190| 68 65 20 6f 70 74 69 6f | 6e 4b 65 79 20 69 73 20 |he optio|nKey is |
|000061a0| 64 6f 77 6e 20 74 68 65 | 6e 0d 70 75 74 20 22 74 |down the|n.put "t|
|000061b0| 72 75 65 22 20 69 6e 74 | 6f 20 6f 70 74 69 6f 6e |rue" int|o option|
|000061c0| 4b 65 79 44 6f 77 6e 0d | 65 6c 73 65 0d 70 75 74 |KeyDown.|else.put|
|000061d0| 20 22 66 61 6c 73 65 22 | 20 69 6e 74 6f 20 6f 70 | "false"| into op|
|000061e0| 74 69 6f 6e 4b 65 79 44 | 6f 77 6e 0d 65 6e 64 20 |tionKeyD|own.end |
|000061f0| 69 66 0d 69 66 20 66 69 | 65 6c 64 20 75 73 65 4d |if.if fi|eld useM|
|00006200| 65 55 70 20 3d 20 65 6d | 70 74 79 20 74 68 65 6e |eUp = em|pty then|
|00006210| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 70 75 74 |.lock sc|reen.put|
|00006220| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 66 69 65 6c | empty i|nto fiel|
|00006230| 64 20 63 72 79 70 74 6f | 50 75 7a 7a 6c 65 0d 70 |d crypto|Puzzle.p|
|00006240| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 66 69 |ut empty| into fi|
|00006250| 65 6c 64 20 6d 79 70 75 | 7a 7a 6c 65 0d 70 75 74 |eld mypu|zzle.put|
|00006260| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 66 69 65 6c | empty i|nto fiel|
|00006270| 64 20 63 6c 75 65 0d 73 | 68 6f 77 20 63 64 20 66 |d clue.s|how cd f|
|00006280| 69 65 6c 64 20 75 70 64 | 61 74 65 0d 70 75 74 20 |ield upd|ate.put |
|00006290| 72 65 74 75 72 6e 20 26 | 20 72 65 74 75 72 6e 20 |return &| return |
|000062a0| 26 20 22 52 65 6f 72 67 | 61 6e 69 7a 69 6e 67 20 |& "Reorg|anizing |
|000062b0| 74 68 65 20 70 75 7a 7a | 6c 65 73 2c 20 74 68 69 |the puzz|les, thi|
|000062c0| 73 20 6d 61 79 20 74 61 | 6b 65 20 61 20 6d 69 6e |s may ta|ke a min|
|000062d0| 75 74 65 c9 22 20 69 6e | 74 6f 20 63 64 20 66 69 |ute." in|to cd fi|
|000062e0| 65 6c 64 20 75 70 64 61 | 74 65 0d 75 6e 6c 6f 63 |eld upda|te.unloc|
|000062f0| 6b 20 53 63 72 65 65 6e | 20 77 69 74 68 20 64 69 |k Screen| with di|
|00006300| 73 73 6f 6c 76 65 20 76 | 65 72 79 20 66 61 73 74 |ssolve v|ery fast|
|00006310| 0d 73 63 72 61 6d 62 6c | 65 53 61 79 69 6e 67 73 |.scrambl|eSayings|
|00006320| 0d 65 6e 64 20 69 66 0d | 69 6e 69 74 69 61 6c 69 |.end if.|initiali|
|00006330| 7a 65 46 69 65 6c 64 73 | 0d 69 66 20 74 68 65 72 |zeFields|.if ther|
|00006340| 65 20 69 73 20 6e 6f 20 | 6d 65 6e 75 20 22 43 72 |e is no |menu "Cr|
|00006350| 79 70 74 6f 67 72 61 6d | 22 20 74 68 65 6e 20 63 |yptogram|" then c|
|00006360| 72 65 61 74 65 43 72 79 | 70 74 6f 67 72 61 6d 4d |reateCry|ptogramM|
|00006370| 65 6e 75 0d 73 65 74 20 | 65 6e 61 62 6c 65 64 20 |enu.set |enabled |
|00006380| 6f 66 20 6d 65 6e 75 49 | 74 65 6d 20 22 44 69 66 |of menuI|tem "Dif|
|00006390| 66 69 63 75 6c 74 20 50 | 75 7a 7a 6c 65 22 20 6f |ficult P|uzzle" o|
|000063a0| 66 20 6d 65 6e 75 20 22 | 43 72 79 70 74 6f 67 72 |f menu "|Cryptogr|
|000063b0| 61 6d 22 20 74 6f 20 66 | 61 6c 73 65 0d 0d 2d 2d |am" to f|alse..--|
|000063c0| 20 50 49 43 4b 53 20 54 | 48 45 20 43 4c 55 45 20 | PICKS T|HE CLUE |
|000063d0| 41 4e 44 20 50 55 5a 5a | 4c 45 20 46 52 4f 4d 20 |AND PUZZ|LE FROM |
|000063e0| 46 49 45 4c 44 20 53 41 | 59 49 4e 47 53 20 36 2f |FIELD SA|YINGS 6/|
|000063f0| 32 32 2f 39 32 0d 70 75 | 74 20 72 65 74 75 72 6e |22/92.pu|t return|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.